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Vorwort 

Der vorllegende Text wendet sich an den in der Benutzung von EUMEL (und 
ELAN) erfahrenen Programmierer. Auch dfeser wird vor naiver Benutzung von 
REMIS gewamt und zu sorgfditigster Programmierung ermahnt. Vor der Erstel- 
lung ainer emsthaften Anwendung sollte er die erforderlichen REMIS - 
Funktionen ausprobieren. REMIS ist (auch aus Performance - Grunden) gegen 
unordentliche Benutzung nicht abgesichert. 

HInweise auf mdgllche Fehler werden In das Handbuch aingearbeitet. 

Oas vorllegende Handbuch bezieht sich auf die fur EUMEL Version 1.7 ausge- 
llaferte REMIS -Version. 

HInweise an: U. Schneider 
do GMD, Z2.W 
Postfach 1240 

D-5205 St. Augustin 1 



Tel.: 02241/14 2475 



Uberblick 
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1. Uberblick 

Das REMIS - Datenmodell 
Datenstruktur 

In einer REMIS - Datenbank werden ObjeKtklassen (CLASS) eingerichtet. 
Einer Klasse werden Segmente (Oder Felder) (SEGMENT) zugewiesen. 
Zu einem Objekte einer Klasae gehdrt aua jedem zur Klaase gehOranden 
Segment ein Wert. 

Insoweit entspricht die REMIS - Datenstruktur der Datenstruktur des Relationen- 
modells. 

Segmente kflnnen vom Typ TEXTSEGMENT, INTSEGMENT Oder 
REALSEGMENT sein und jewells Werte des entsprechenden ELAN - Datentyps 
aufnehmen: 

TEXT variabe! lang, maximal 32 000 Zaichen 

INT ganze Zahl zwischen - 32 788 und + 32 767 

REAL Gleitkommazahl mit 13-3telllger Mantissa 

und Exponenten zwischen - 126 und + 126 



4 



REMIS Programmier - Handbuch 



Weiterhin bietet REMIS (dhnlich Codasyl - Datenbanksystemen) die Mdglichkeit, 
Bezlehungen zwischan Objekten zu verwaltan. HierfOr gibt ea noch die Seg- 
menttypen REFSEQMENT und QROUPSEQMENT, die Werte der In REMIS defl- 
niertan Oatentypen REF und GROUP aufnehmen kfinnen. 

Ein REF -Wert (Reterenz) ist ein interner Ojektbezeichner *), 
ain GROUP - Wert eina Menga von internen Objektbezeichnern. 

REMIS bietat kelnen wahlfraien Zugriff auf Objakte uber Segmentwarte an (nur 
eine Suchfunktlon, die auf sortlerten Objektmengen bin^ sucht, sonst fortlau- 
fend). FOr sctinallan Zugriff auf zu einem Objakt gehOrande andere Objekte 
sollten REF- und GROUP -Sagmente aingerlchtat warden. Anders ala bel 
Codasyl - Syatemen Ist die Verknupfung von Objekten in REMIS nur einseltig 
gertcfitet. Mit anderen Wortsn: Wenn bel einem Objekt eine Referenz auf ein 
anderes Objekt aingetragen wird, dann wird von REMIS nicht auch belm 
referierten Objakt eine Referenz in Qegenrichtung (auf das referierende 
Objekt) eingetragen. 



*) Interne Objekt - Bezelchner 

Man kann sich die Realisierung ainer Klasse als Tabelle vorstellen, in die die 
Objekte aingetragen warden. 

Objekte behalten, solange sie existleren, ihren festen Platz innerhalb der 
Tabelle. Daher kfinnen sle innerhalb von REMIS eindeutig durch die 
Angabe Ihres Tabellenplatzes bezeichnet werden. Mithilfe der gleichen 
Angabe kfinnen sie auch schnellstmfigllch erreicht werden. (Wahlfreier 
Zugriff, etwa ijt>er Inverslisten, Ist nicht realisiert.) 



Clberbllck 
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Die REMIS-Begriffe antsprechen Begriffen aus anderen Datenmodellen in etwa 
wie folgt: 



REMIS 


Datei 


Relationenmodell 


Codasyl 


Klasse 


(Datei) 


(Relation, Tabelle) 


(Satzart) 


Gruppe 


Datei 


Relation, Tabelle 
bzw. View 


Satzart 
(Subachema) 
+ Set 


Objelct 


Satz 


Tupel, Zeile 


Satz 


Segment 


Feid 


Attribut, Spalte 


Feld 


Referenz 




Cursor 


current of 
run -unit 



Anmarkung: 

Die der Klasse entsprechenden Begriffe stehen in Klammern, da durch 
Datenmanipulationsanweisungen Objekte nur als Gruppenmitglieder 
erreicht werden kOnnen, nicht aber als Klassenmitglieder (s.u.). 
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Ein Beispiel 

Es soil eine Datenbank eingerichtet werden, mit dsr insbeaondere der Bereich 
Ausleihe in einer Schulblbllothek unterstQtzt wird. 

DIese Datenbank sollte Daten uber den Buchbestand der Bibllottiek enthalten 
und Daten uber Auslelhen: 

Daten iiber BQcher 
SIgnatur (Nummer oder Bezaichnung eines einzelnen Buches) 
Autor 
Tltel 
Verlag 

Erscheinungsjahr 

Daten uber AusJeihen 
SIgnatur 
Aualeihdatum 
Auslalhemame 
Ausleiheradresse 

Oder mlt anderen Worten: In der Datenbank mussen verwaltet werden 
Datengebilde oder Objekte, die ein Buch beschreiben und 
Datengebllde oder Objekte, die eine Ausleihe beschreiben. 



Uberblick 
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Da in der Schulbibliothek sicher viele Werke in mehreren Exemplaren vorhanden 
sind und in mehreren Ausleih-Objekten derselbe Ausleiher aufgefiihrt wird, 
wurden vielleicht besser folgende Objektklassen (Menge gleichartiger Objekte) 
aingerichtet: 

WERK- Objekte EXEMPLAR - Objekte BENUT2ER - Objekte 



Werknummer 
Autor 
Titel 
Verlag 

Erscheinungsjahr 



Signatur 
Werknummer 
Ausieihdatum 
Benutzernummer 



Benutzernummer 
Name 
Vomame 
Adresse 

(fOr Sdiuler: Klasse 
fiir Lehrer: "L") 



Zwischen diesen Klassan gibt es Beziehungen, die dadurch dargestellt sind, daB 
in den EXEMPLAR - Objekten auch die Werknummer und die Benutzernummer 
aufgefiihrt sind. 



Diese Beziehungen haben folgende Bedeutung: 
W Werkexemplar 

umgekehrt gelesen: ist Exemplar von 
A ausgeliehen an 

umgekehrt: hat ausgeliehen 



HierfUr sollen folgende Integritdtsbedlngungen gelten: 
W1: Zu jedem WERK-Objekt gibt es mindestens ein EXEMPLAR - Objekt 

(mit derselben Werknummer) 
W2: Zu jedem EXEMPLAR - Objekt gibt es ein WERK-Objekt 
A1: Zu jedem EXEMPLAR - Objekt im Zustand 'ausgeliehen* muB ein 

BENUTZER - Objekt existieren 

(d.h. Im EXEMPLAR - Objekt und im BENUTZER - Objekt mQssen dieselbe 
Benutzernummer stehen) 





1 W-»> 1 




0 A-* 0 




WERK 




EXEMPUVR 




BENUTZER 


1 n 


n 1 
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Fur diese Anwendung kdnnte eine REMIS -Datenbank mit folgender Oaten- 
struktur eingerichtet warden: 

(Objekt-)Klasse WERK mIt den Segmenten 
autor 
titel 
verlag 

erscheinungsjahr 

exemplare (* Gruppe der zugehOrigen Exemplars *) 



(Objekt-)KlasBe EXEMPLAR mit den Segmenten 
signatur 
auslaihdatum 

werk (* Referenz auf zugehfirige Werkdaten *) 

ausleiher (* Referenz auf Auslelherdaten *) 

(Objekt-)Klasse BENUTZER mit den Segmenten 
name 
vomame 
klaase 

entliehen (* Gruppe der ausgellehenen Exemplare *) 



Oberblick 
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Datenmanipulation 

Fur Einrichtung, Benutzung und Verwaltung miissen Prt}gramme in ELAN 
geschrieben werden. Die REMIS - Sprache ist eingebettet in ELAN. 
(Fur Datenbankabfragen steht 'sql' zur Verfiigung, das aus einer SELECT - 
Anweisung ein ELAN - Programm generiert und ausfOhrt.) 

Beispiel; 

Alle Titel aua der Gruppe 'alle werke' ausgeben: 

TEXTSEGMENT CONST titel := segment ( "titel", "WERK" ) ; (»kann entf alien 
REF VAR werk := first(group("all8 werke")); 
WHILE another(Merk) 
REP line; put(work_titel) ; 
next (werk) 

PER 
Oder 

SELECT titel FROM "alio werke" 

Ein Programm kann nur bestimmte (referiarte) Objekte (bzw. seine Segmente) 
bearbeiten. Es muB aioo zundchat sine Referenz (REF - Variable) auf ein Objekt 
positionieren. Dies geschieht durch Posltlonierung der Referenz in einer Gruppe 
Oder durcti Lesen des Referenzwertes aus einem Refsegment. Insbesondere ist 
das Erzeugen von Objekten nur mdglich durch die Funktion 'insert*, die einen 
neuen Referenzwert erzeugt und in eine Gruppe einfijgt. 

Eine Gruppe entlidit eine geordnete Menge von Referenzen auf Objekte der- 
selt}en Klasse. Einer Gruppe werden Segmenttypen der zugehArigen Klasse in 
einer gewunschten Reihenfoige zugeordnet. Die Gruppe entspricht damit in etwa 
der herkOmmlichen formatiarten Datei (bei Datenbanksystemen der logischen 
Datei, Benutzersicht (view) Oder dem Subschema). 

Die Reihenfoige der Objekte in einer Gruppe wird hergesteilt beim Einfugen der 
Objekte (Referenzen) durch ein Programm bzw. durch Sortierung. 
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Beispiel 

Auf der Klaase WERK mit fblgsndem Inhalt 



1 




1 




-| 


1 autor 


titel 


veiiag > 


erschj 


1 


i_ _ 




J 




J 


1 Muller 


Englisch 1 


Knaur | 


1975 




, Muller 


Englisch 2 


Knaur | 


1975 




1 May 


WInnetou 1 


xyz 1 


1890 




1 May 


WInnetou 2 


xyz 1 


1892 




' May 


WInnetou 3 


xyz ' 


1893 




1 




_ J 







kann man z.B. folgende Gruppen definieren: 
Gruppe: alle werke 



autor 


titel 


verlag 


arschj 


May 


WInnetou 1 


xyz 


1890 


May 


WInnetou 2 


xyz 


1892 


May 


WInnetou 3 


xyz 


1893 


Muller 


Englisch 1 


Knaur 


1975 


Muller 


Englisch 2 


Knaur 


1975 



Gruppe: fachliteratur 



Gruppe: unterhaltung 



autor 


titel 


arschj 


Muller 
Muller 


Englisch 1 
Englisch 2 


1975 
1975 



autor 


titel 


III 


WInnetou 1 
WInnetou 2 
Winnetou 3 



Uberblick 
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Merke: 

1 . Objekte stehen nur als Mitglieder von Gruppen zur VerfUgung. 

2. Ein einzelnes Objekt wird durch eine Referenz (Wert einer REF - Variablen) 
bezeichnet (referiert). 

3. Der Wert einer REF- Variablen wird nur von REMIS, nicht vom Programm 
gesetzt. Vom Programm wird eine Referenz positioniert (first, next, last, 
prior). 

4. Eine Referenz wird im Prinzip auf ein Objekt in einer Gruppe positioniert. 
(Wurde eine Referenz aus einem Refsegment gelesen, dann gehArt sie 
sozusagen zu einer unbenannten Gruppe, die nur das referierte Objekt 
enthdit. Eine anschlieBende Positionierung ist sinnlos.) 

5. Schreib-ZLesefunktionen betreffen nur einzeine Segmente eines Objekts. 

6. Segmente kOnnen nicht unmittelbar bearbeltet werden. Von REMIS werden 
nur Werte in Segmente eingetragen bzw. Segmentwerte ausgegeben. Dies 
gilt insbesondere auch fiir Referenz- und Gruppensegmente. 
(Ausnahme: Operator , s.u.) 
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REMIS - Datentypen 

REF zeigt auf ein (oder kein) Objekt 

(und ggfs. eine Position in ainer Gruppe 
und ggfa. ein Standard - Fomiular) 

GROUP entfidit eine Reihe von Referenzen 
(auf Objekte einer Klasse 
und ggfs. ein Standardformular) 

TAG (htotizzettel) enthdlt ein Formular 



Grenzwerte 

Klassen je Datenbank 50 

Segmante je Datenbank 146 minus Anzahl der Klassen 

Objekte je Klasse 15 000 

Gnjppen je Datenbank 500 

Formulare je Datenbank 100 

Felder je Formular 100 



Benutzung von REMIS 

Zunflchst wird REMIS auf dem Recnnsr In eIner Manager -Task mit dem Namen 
REMIS installiert. Unter REMIS werden Arbeitstasks aingerichtet, in denen die 
Arbeiten mit der Datenbank durchgeftihrt werden. 

Fur die Programmierung stefien zur VerfOgung: 
Datenbankfunktionen 
Formularfunktionen (Maskenfunktlonen) 
kombinierte DB/Formularfunktlonen 
Menue - Generator 
Abfragesprache (Klein - sql) 



Starten von REMIS 
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2. Starten von REMIS 

REMIS 9ollta In einer Manager -Taak mit dem Namen REMIS Installlert warden. 
Diese wird normalerwelse unter PUBLIC eingerlchtet. Die REMIS - Programme 
werden von der geliefertan Archiv- Floppy in die Task REMIS geladen und mlt- 
hilfe des Programms REMIS.info insertiert. Die Date! REMIS.info enthait Infor- 
mation iiber das weitere Vorgehen. Man aollte sie vor Ablauf das Programms mIt 
edit ansehen. 

Beispiel einer Taskstruktur fur ein Anwendungssystem auf der ausgelleferten 
REMIS - Version (ohne Parallel - Zugriff): 

PUBLIC 
REMIS 

Datenbank- Manager 1 
DB1 -Arbeitstask 1 
DB1 - Arbeitstask 2 
Datenbank -Manager 2 
0B2- Arbeitstask 

DBIsave 
DB2save 



;* enthait das REMIS -System *) 
" allgemeine Funktionen fur DB 1 *) 
;* Arbelten mit DB 1 *) 

Arbeiten mit DB 1 ') 

allgemeine Funktionen fur DB 2 *) 
;* Arbeiten mit DB 2 *) 
'* Datensicherung filr DB1 *) 
* Datensicherung fOr 0B2 *) 
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REMIS installleren 



begin ("REMIS") 

archive ("REMIS") 
fetch all(archive) 
edit ("REMIS. info") 
ESC q 
run 

global manager 



Archiv-Floppy einlegen 
archiv anwahlen 

Information lesen 
edit verlassen 
"REMIS. info" ausflihren 
insertiert REMIS-Pakete 



Datenbank - Manager einrichten 

begin ("BIB", "REMIS") Task BIB unter REMIS starten 

global manager zum Manager machen 



Arbeitstask einrichten 



Task bib starten 
leere 08 von REMIS kopieren 
(Operator /... : task(...) ) 

Nun kflnnen in die leere Datenbank 

Oatenbeschreibung 

Maskendefinltionen 

Oaten 
eingetragen werden. 

SIcherungstask einrichten 

begin ("BIBsave") 
free global manager 



begin ("bib", "BIB") 
load base (/"REMIS") 



Starten von REMIS 
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Nachdem die Datenbank einen aufzubewahrenden Inhalt bekommen hat, sollte 
sie gesichert warden: 

save base (/"BIBsave") 

DIese Version der Datenbank kann dann jederzeit wieder in eine Arbeitstask 
kopiert warden mit 



IF base exists THEN kill base PI; 
load base (/"BIBsave") 
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3. Einrichten einer Datenbank 
3.1 Uberblick 

Es ist recht einfach auf REMIS ein Anwendungssystem zu entwickeln. Im Laufe 
der Entwicklung ergeben sich jedoch meist Gesichtspunkte, die eine Anderung 
der Datenstruktur erfordem. Solche Anderungen (abgesehen vom Hinzufugen 
von Datengebildetypen (Klassen, Segmenta, Gruppen)) kdnnen umfangrefche 
Arbeiten (Datenumwandlung, ProgrammAnderung, - uberaetzung, - inwrtlerung) 
zur Folge haben. Der Entwicklung des endgiiltigen Anwendungssystems sollte 
daher ein sorgfdltlger Oatenbankentwurf vorausgehen, der natOrllch durch die 
Entwicklung von Prototypen sehr gut unteratutzt warden kann. 

EIngerichtet wird die Datenbank in einer Arbeitstask. Es werdan eingetragen 

- die erforderlichen Datengebildetypen 

- ggf. Formularbesdirelbungen. 

Es ist nutzlich, die Datenbasis mil Daten- und Formularbaschreibungen zu 
sichern. AtischllaSend aollten fOr die weltsre Artseit die Segmentnamen zur 
VerfQgung gestellt warden. 



EInrlchten einer Oatenbank 
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3.2 Datenbeschreibung 

Bevor mit dsr Datenbank gearbeitet warden kann, mOssen die erforderllchen 
Klassen, Segmente und Qruppen eingerichtet warden. 

Da Zugriff auf Objekta nur uber Gruppen mAglich 1st, let je Klasse min- 
destens eine Qruppe erforderllch. 

Fur eIne Gruppe warden die uber diese Gruppe erreichbaren Segmente der 
zugehdrigen Klasse festgelegt. 

Die Eigenschaften (zugeordnete Segmente, Standardformular, ...) von 
Qruppen, die in GROUP -Segmenten abgelegt werden, warden Ktr eine 
Beispielgruppe deklariert, die dem QROUPSEGMENT-Typ zugeordnet 
wird. Beispielgruppen sollten nicht zur Verarbeitung benutzt werden, also 
leer bleiben. 

MIt den u.a. Prozeduren sollte in einer Datei ein Ei-AN - Programm erstellt 
werden. Es legt bei Ausfuhrung (run) In der Datenbasis eIne Datenstruktur- 
beschreibung (Schema) ab. Mithilfe dieser Prozeduren kOnnen jederzeit weitere 
Klassen, Segmente und Gruppen in die Datenbank aufgenommen werden. 
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Anmerkung: Im Folgenden sind unter Namensparameter (...name) Textkonstante 
(z.B. "abc") zu verstehen. 

Klasse einrlchten 

new class (klassenname) 

Anmerkung: Segmentnamen mUssen in der Datenbank eindeutig sein. 

Sie sollten den Namensregeln fur ELAN entsprechend gebildet werden, 
damit sie auch ala Variablennamen verwendet werden kfinnen. 

Segment einrlchten 

new segment (segmentname, klassenname, standardwert) 
richtet ein: wenn standardwert vom Typ: 
INTSEGMENT INT 
REALSEGMENT REAL 
TEXTSEGMENT TEXT 

new segment (segmentname, klassenname, 

name der referlerten klasse, referenz) 
richtet ein REFSEGMENT ein; 

referenz muB nllref seIn Oder ein Objekt der referlerten Klasse referleren. 

Qruppe elnrichten 

GROUP VAR g := new group (klassenname, gruppenname) 

Gruppensegment einrlchten 

new segment (segmentname, klassenname, gruppenvariable) 

richtet ein QROUPSEGMENT ein mit den Elgenschaften der durch 

gruppenvariable (z.B. g) bezeichneten Beispielgruppe und einer leeren 

Gruppe als Standardwert. Gruppenname und segmentname miissen gleich 

sein. 



Einrichten einer Datenbank 
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Einer Gruppe Segmente zuweisen 

add group segment (gruppenvarlable , SEG segmentname ) 
all class segments (gruppenvarlable) 

ordnet der Gruppe alle noch nicht zugeordneten Segmente der zugehfirigen 
Klasse zu in der dort vorliegenden Relhenfolge (wichtig fQr sort) 

Konversionamethode festlegen 

Zur Erieichterung der Programmierung werden von einigen Datenbankfunktionen 
INTSEGMENT-Werte in Texts konvortlert und umgekehrt. Folgende Konver- 
sionsmodl stehen zur VerfCigung: 



modus 


innen 


auBen 


0 zatil als text 

1 Konversionstat>eile 

2 Datumskonversion 


25 
2 

-1396 


-28' 

•Frau" 

"06.03.84' 



Es gebe die INTSEGMENTe 'anrede' und 'ausleihdatum': 
Modus 0: Standardwert 

Modus 1: new methode (SEG "anrede", 1); 

new conversion table entry (SEG "anrede", "", 0); 

new conversion table entry (SEG "anrede", "Herr", 1); 

new conversion table entry (SEG "anrede", "Frau", 2) 
Modus 2: new methode (SEG "ausleihdatum", 2) 
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Qne Beschreibung dea erzeugten Schemaa kann erstellt warden durch: 
dbllst 

Die Beschreibung wird in einer Datei ('DB-list') erzeugt und durch den Editor 
angezeigt. Sle Kann gedruckt werden mit dem Editor - Kommando: 
ESC ESC print 

Segmentnamen zur VerfUgung stellen 

Insert declarations 
Die Segmentnamen stehen anschlleaend fQr die Programmierung in dieser 
Taak (und ihren S6hnen) zur Verfugung. 

Weitere Prozeduren zur Bearbeltung des Schemes sind im Anhang aufgefGhrt. 



Einrichten einer Datenbank 
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3.3 Formuiardefinition 

Formulare (TAGs) werden in der Datenbank aufbewahrt und iiber einen Namen 
identifiziert. Fur Erstellung bzw. Verdnderung eines Formulars stehen die 
Dialogfunktionen 

design form 

design fields 

zur VerfUgung. FUr die Erstellung eines neuen Formulars wdre damit z.B. 
tolgendes Programm zu ersteilen: 

TAG VAR t; 

TEXT VAR name; 

nil(t); 

design fQrm(t); 
design fields(t); 

putC'Bitte Formularnamen eingeben"); 

get(name) ; 

store tag(t,name) 

Formularvariable deflnieren 
TAG VAR t 

Leeres Formular deflnieren 

nil (t) 

Formularbild antwerfen 
design form (t) 

Das Bild von t wird in einer Textdatei zur Bearbeitung mit edit angeboten. Dabei 
haben folgende Zeichen eine besondere Bedeutung: 

blank OURCHSICHTIG hier wird bei der Formularausgabe der Blldschlrm 
nicht verdndert 



< 



> 



BLANK 
INVERS AN 
INVERS AUS 



hier wird ein blank ausgegeben 

ab hier erfolgt die Ausgatie in Invers - Darstellung 

ab hier erfolgt die Ausgabe normal 



Fur die Darstellung von BLANK, INVERS AN, INVERS AUS kOnnen mit der 
Prozedur 'trans' andere Zeichen vereinbart werden. 
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Formularfelder (fur Daten) deflnieren 
design fields (t) 

Vom Benutzer sind nacheinander einzugeben: 

1 . Feldnummer (oder ESC (beenden) Oder anderes) 

2. Feldanfang: Cursor poaMontorsn, RETURN 

Der Cursor ka/in auch durch Eingabe eines jm Formularbild vorhandenen 
Zeichena auf daa ndchate dieser Zeichen (in Schrelbrlchtung) geaetzt 
werden. 

3. Feldende: Cursor poaitionieren, RETURN 

4. ESC Oder Wiedertiotung von (1) und (2) zur Definition welterer Teil- 
felder 

Ein Fekj kann aua mehreren Telifeldem (jeweiia in einer Zeile) zusam- 
mengesetzt werden. Die Schritte (2) bis (4) werden wiederholt, solange 
hier nicht ESC eingegeben wird. 
5 . Feldeigenscfiaften 

- geschutzl (keine Engabe Ober dieses Feld) 

- geheim und Auagabezeichen 

Anstelle jedes In diesem Feld auszugebenden Zeichens wIrd das Aus- 
gabezeichan ausgegeben. 

- Segmentname Oder symbollacher FeMname (numerisch) 

- Auskunftsnummer (Nummer einer diesem Feld zugeordneten Erkldrung 
Alle Eingaben werden mit RETURN beendet (oder ESC, wenn keine weiteren 
Angaben gemacht werden sollen (s.a. Kap. 4.3). 

Formular speichem 

store tag (t, name) 

speichert t unter dem Namen name 

Weitere Prozeduren zur Formularbehandlung sind im Anhang aufgefuhrt. 
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4. Programmieren 
4.1 Uberblick 

EIn Programm arbeitet im wesentlichen mit den REMIS - Elementen Segment, 
Gruppe, Referenz. Segmente und Gruppen haben bei Einrichtung der Datenbank 
(externe) Namen bekommen. Diese mussen fur den Zugriff in interne Bezeichner 
(Adressen) umgesetzt werden. Damit dies nicht bei jeder Operation geschehen 
muB, verwenden viele REMIS - Operationen ais Parameter interne Bezeichner, 
die sich das Programm vorher von REMIS ubergeben lessen muB. Dem ELAN- 
- Programmierer wird die zu verwendende Technik sicher aus folgendem 
Beispiel kiar: 

SEGMENT CONST autor := segment ( "autor" ) ; 
REF VAR werk:=first(group("wgr")); 
put(werk_autGr) ; 

gibt den Autor des arsten Works In der Gruppe "wgr" 

auf dem Bildschirm aus 

Definition von _ (siehe Anhang): 

TEXT OP _ (REF CONST r, SEGMENT CONST a) 

Die Definition von Segmentbezelchnem kann entfallen, wenn In der Task (nach 
Laden der Datenbank) 

insert declarations 
ausgefuhrt wurde. AnschiieBend stehen alle (externen) Segmentnamen ais 
Segmentbezeichner zur Vefugung. 

Die Funktionen zur Bearbeitung der Datenbank (lesen, schreiben) sind (v\^enn 
nicht Formuiare verwendet werden, s.u.) auf einzeine Segmente eines bestimm- 
ten Objekts (Datensatz) bezogen. Objekte werden nur iiber Gruppen zur VerfU- 
gung gestelit. Einzeine Objekte einer Gruppe werden bezeichnet (referiert) durch 
dieser Gruppe zugeordneten REF -Variable. 
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Im Programm werden aJso zun&:hst REF- Variable definiert, einer Gruppe 
zugeordnet und in der Gruppe positianiert. Einer Gruppe kOnnen mehrere 
REF -Variable zugeordnet werden. 

AnschlieBend KOnnen Objekte behandelt werden: 

- Objekt aniegen 

- Objekt Idschen 

- Objekt in Gruppe einfugen 

- Objekt au3 Gruppe ausfOgen 

- Gruppe leeren 

- Gruppe aortieren 

- Segment schrelben 

- Segment lesen 

REMIS enthdlt Funktlonen, die ea gestatten, Oaten Ober vordeflnlerte Formulare 
vom Blldschinn einzuleaen bzw. auf dem Blldachirm zur Vearbeitung anzubieten. 
Ebenso kOnnen Formulare fur die Oatenausgabe verwendet werden. Fur die 
Bearbeitung von Datenbankdaten uber Formulare stehen beeonders komfortabie 
Funktlonen zur Varfugung. 

En Formular wird von REMIS in einer Varlablen vom Typ TAG (htotizzettel) 
aufgebaut. Formulare kAnnen auf dem Blldachirm bearbeitet oder auf ein Pin- 
board geheftet werden, auch neben- und Qbereinander. Das zuletzt auage- 
gebene Formular uberscfireibt die vorhergehenden auSer an den 
OURCHSICHTIGen Stellen. Das Pinboard kann auf ein Ausgabemedlum (z.B. 
Datai oder Drucker) auagegeben werden. 
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4.2 Datenbankfunktionen 

Im Folganden wird fOr axtsrne Namen, dia ala Textkonatanta zu Otwrgaban sind, 
die Bezeichnung '...name' verwendet, sonst sind Interne Bezeichner gemeint. 

Segmentbezeichner definieren (gegebenenfalls): 

SEGMENT VAR s := segment (segmentname) 

SEGMENT VAR s :s segment (segmentname, klassenname) 

Gruppenbezeichner definieren (nicht immer erfordetiich) 

GROUP VAR g := group (gruppenname) 

REF- Variable definieren und positionieren 

REF VAR r := first (group (gruppenname)) 
REF VAR r := last (group (gruppenname)) 

REF positionieren 

next (r): nachstes Objekt der Gruppe 

prior (r): vorhergehendes Objekt der Gruppe 

first (r): erstes Objekt der Gruppe 

last (r) : letztes Objekt der Gruppe 

first (r, segmentbez = suchwert): 

erstes Objekt der Gruppe, das Im angeget>enen Segment den angegetwnen 
Wert enthdit. Falls ein solches Objekt gefunden wurde, zeigt r auf dieses 
Objekt, andernfalls bei nach dem angegebenen Segment sortierten Gruppen 
auf das ndchste, sonst hinter das letzte Objekt der Gruppe. 
next (r, segmentbez = suchwert): 
wie first, jedoch wird ab dem ndchsten Objekt in der Gruppe weltergesucht 
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Test auf gultige Referenz 

another (r) : llefert TRUE, falls r ein gultlges Objekt referiert 
found: llefert TRUE, falls durch das latzte first Oder next mit Auswatil- 
bedingung ein Objekt gefunden wurde 

Objekt aniegen 

insert (r): 

lagt ain neues Objekt In der zugehOrlgen Klassa an und fCgt es in die 
zugehfirige Gruppe vor der aktuellen Position ein. r zeigt anschlieBend auf 
das neue Objekt. 

Anmerkung: Es 1st sicfierzustellen, insbeaondere fur Ref- und Qroupsegmente, 
daB vor dem Lesen (s.u.) eines Segmentwertes ein definierter Wert ainge- 
tragen wurde (Segment schrelben). Falls dies durch das Anwendungssystem 
nicht garantiert werden kann, sollte unmittelbar nach insert in aile Segmente 
des neuen Objekts ein Wert eingetragen werden (z.B. mit reset). 

Objekt lOschen 

delete (r): 

Ifischt das durch r referierte Objekt aus der zugehdrigen Klasse. Oadurch ist 
es auch aus alien Gruppen, In denen es enthalten war, entfernt. r referiert 
anschlieBend das ndchste Objekt der zugehdrigen Gruppe Oder das Grup- 
penende. 

Objekt in Gruppe einfugen 
hold (gruppe, r): 

hdngt r an gruppe an. gruppe gilt anschlieBend als 'nicht sortiert'. 
hold (Mohin, r): 

fijgt r vor der durch die REF -Variable wohin bezeichneten Position in die 
zu wohin gehdrende Gruppe ein. Das Sortlerkennzeichen der Gruppe wird 
nicht verdndert. wohin zeigt anschlieBend auf das eingefugte Objekt (r). 
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Objekt aus Qruppe ausfiigen 
unhold (r): 

r wird aus der zugehdrigen Gruppe entfernt. r referiert anschlieBend kein < 
Objekt (another (r) - - > FALSE). < 

Gruppe leeren 

clear (gruppe) : entfernt alle Referenzen aus der Gruppe 
Gruppe sortieren 

sort (gruppe, anzahl) : 

sortiert die durch gruppe referierten Objekte nach den ersten anzahl 
Segmenten (bezogen auf die Reihenfolge, in der die Segmente der Gruppe 
zugewlesen wurden) 

Segment schreiben 

write (r, segment, wert): 

schrelbt wert In daa angegebene Segment des referierten Objekts. Die 
Typen von segment und wert musaen einander entsprechen (TEXT, INT, 
REAL, REF, GROUP). 1st segment vom Typ SEGMENT, dann muB wert vom 
Typ TEXT sein. In diesem Fall wIrd die vereinbarte Konverslon (siehe 
Kap. 3.2) durchgefijhrt. 

reset (r , segment) : trdgt den Standardwert ein, sonst wie write. 



Anmerkung: Der Programmierer muB sicherstellen, daB r ein giiltiges Objekt 
referiert (IF another (r) ...) und daB segment zur referierten Klasse gehfirt. 
Andernfalls arfolgt die Eintragung auf eine falsche Stelle. 
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Segment lesen 

read (r, segment, wert): 

iibergibt in der Varlablen wert den Inhalt des angegebenen Segments des 
referierten Objekts. Die Typen von segment und wert mussen einander 
entsprechen (TEXT, INT, REAL, REF, GROUP). 1st segment vom Typ 
SEGMENT, dann muB wert vom Typ TEXT sein. In diesem Fall wird die 
vereinbarte Konverslon (siehe Kap. 3.2) durchgefiihrt. 
r_segment : 

Der _- Operator llefert den Wert des angegebenen Segments des refe- 
rierten Objekts (nicht fOr GROUPSEQMENTe). Der Operator 1st schwAcher 
als die In ELAN deflnierten Operatoren. Der AusdrucK r_segment sollte 
daher in Ausdrucken mit anderen Operatoren eingeklammert werden: 
(r_9egment). 

Anmerkungen: 

1. In segment muB ein gultlger Wert eingetragen sein, sonst ist das Ergebnls 
unbestimmt (Fehler Oder falsch). 

2. Aus REFSEGMENTen wird der gefundene Wert gellefert, auch wenn er kein 
giiltlges Objakt referiert. Wenn dieser Fall eintreten kann, dann muB wert vor 
der Weiterverwendung gepriift werden (IF another (wert) ...). 

3. Vom Programmierer ist sicherzustellen, daB r ein gOltlges Otijekt referiert und 
segment zur referierten Klasse gehOrt. Andemfalls ist das Ergebnls falsch. 
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4.3 Anwendung von Formularen 



Verwendung von Formularen im Dialog 



ZunSchst wird das Formular auf den Bildschirm geschrieben. (Vorher Bildschirm 
loeschen?) AnschlieBend kflnnen uber einzelne durch die Feldnummer bezeich- 
nete Formularfelder Oaten vom Bildschirm gelesen, auf dem Bildschirm ausge- 
geben Oder auf dem Bildschirm zur Bearbeitung angeboten warden. Die Feld- 
nummer bezieht sich auf Felder (nicht Telifelder). Ebenso arbeitet das Programm 
mit Feldinhalten (nicht Teilfeldinhalten). 

MIt den folgenden Tasten kann die Schrelbmarke auf dem Bildschirm gesteuert 
werden und as kdnnen Eingaben korrigiert werden: 



in einem Feld 



RECHTS 
LINKS 
HOP LINKS 
HOP RECHTS 
RUBIN 



RUBOUT 
HOP RUBOUT 
auf anderes Feld 



Cursor eine Stella nach rechts 
Cursor eine Stelle nach links 
Faldanfang 

hinter bzw. auf letztes Zaichen 

fiigt an der aktuellen Cursorposition sin Leerzeichen sin und 
verschiebt den Rest des Feldinhaltes um ein Zelchen. Wenn das 
Feld (nicht Teilfeldl) uberlduft, werden die letzten Zelchen nicht 
mehr dargestellt. 

Ifischt an der aktuellen Cursorposition ein Zelchen, der Rest des 
Feldinhalts wird nachgerOckt. 
Iflscht Feldlnhalt ab Cursorposition 



RETURN nfichster bzw. letzter Feldanfang 

HOP RETURN Anfang des vorhergehenden bzw. orsten Feldes 

UNTEN eine Zeile nach unten, falls dort ein Feld 1st 

OBEN eine Zeile nach oben, falls dort ein Feld 1st 
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Formularbearbeitung beenden 
ESC 

bei Einfeldbearbeitung auch durch Veriassen des Feldes (s.o.) 

Anmerkung: Die Zuordnung dieser und evtl. weiterer Positlonierungsfunktionen 
kann sich durch Anpassung an die Textverarbeitung dndem. 

Verwendung von Formularen ohne Datenbankbezug 

Formuiara warden dem Programm in TAG -Variable zur VerfUgung geatellt: 
TAG VAR t 

t := tag ( f ormularname ) oder 
t INITBY fortnularname 

Formular auf den Blidsctiirm sctireiben 

(.* page; ggfs. Blldschirm Idachen ») 

show (t) 

Fur die folgendan Funktionen mu6 feldnummer als Zahlvariable definiert sein und 
vor der Benutzung einen Wert zugewiesen bekommen: 

INT VAR feldnummer; 

feldnummer := 2 

Bn FeM bearbetten 

text In Feld feldnummer von t ausgetran 

put (t, text, feldnummer) 
text von Feld feldnummer von t lesen 

get (t, text, feldnummer) 

get (t, feldnummer) (* llefert den Text *) 
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text auf Feld feldnummer von t zur Beartieitung anbieten 

putget (t, text, feldnummer) 
mehrere Felder bearbeiten 

Bei folgenden Prozeduren kann der Benutzer mehrere Formularfelder bearbei- 
ten. Dazu muB ein Bereich von 100 Textwerten ubergaben warden. Die Werte 
warden den Formularfeldern In der Ralhenfolge Ihrer Feldnummern zugeordnet. 

ROW 100 TEXT VAR texte; 

(' vor put, putget: Bereich, soweit benutzt, mit Werten fullen, z.Bsp. 
FOR i FROM 1 UPTO fieldsCt) 
REP texte(i) := PER ») 

put (t, texte) 

get (t, texte, feldnummer) 

putget (t, texte, feldnummer) 

Die Schreibmarl<e wird anfangs in das Feld feldnummer gesetzt. Sie kann vom 
Benutzer iiber alle nicht schreibgeschutzten Formularfelder bewegt werden. Die 
Bearbeitung des Formulars wIrd beendet durch ESC. feldnummer enthdlt dann 
die Nummer des verlassenen Feldes. 
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weitere Prozeduren 

GrOBte jemals benutzte Feldnummer in Formular t 

fields (t) 
Anzahl der von Formular t belegten Zeilen 

y size (t) 
Ldnge des Feldes feldnummer von Formular t 

length (t, feldnummer) 

Schreibschutz fur Feld feldnummer In Formular t 

protect (t, feldnummer, TRUE) (.* schutzen *) 
protect (t, feldnummer , FALSE) (* freigeben *) 

Formular vertlkal verschleben 

t SCROLL zellenzahl 
positive zellenzahl: nach unten 
negative zellenzahl: nach oben 

Hlerdurch 1st es mdgllch, Formulare beglnnend mit Zelle 1 zu entwerfen und 
im Programm auf eine in der jewelllgen Dlalogsituatlon geeignte Zelle zu 
verschleben. 

Code des Zeichens, mit dem das Formular verlassen wurde 

leaving code (z.B. 27 (ESC)) 
Cursor entsprechend Benutzereingat^e auf anderes Feld 

execute command code(t, feldnummer) 
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MIt dan latzgenannten Funktlonan lat aa mfigllcfi anatalla von 
gat (t,texte,feldnummar) eine entaprachende elgene Prozadur zu achrelben: 

REP get(t,texte(feldnuninier ) , feldnummer) ; 

IF ok THEN execute command code (t, feldnummer) FI 
UNTIL leaving code s esc PER. 
ok: IF feldnummer = 4 

THEN plausibles erscheinungsjahr 

ELSE TRUE 

FI. 

plausibles erscheinungsjahr: 
texte( feldnummer) » "" COR 
(int(texte( feldnummer)) > 1900 AND 
int(texte( feldnummer)) < 1985) 

HIerdurch wird der Benutzer Im Paid 4 (daa Formulars "werk') festgehalten, bis 
ar kein Oder ein plausibles Erscheinungsjahr Oder ESC eingibt. 
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Verwendung von Formularen mit Datenbankdaten 

Zusdtzllch zu den bisher genannten stehen fur die Bearbeitung von Datenbank- 
daten neben anderen die folgenden Funktionen zur VerfUgung. Zur Erieich- 
temng der Programmierung wird dabei auagenutzt, daB 

- den Formularfeldem Segmente zugeordnet wurdan 

- zu siner Gruppe ein Standardformular deflniert wurde. 

Dadurch kdnnen mit einer Operation alia einem Formular zugeordnaten Seg- 
mente eines referierten Objekts beart>eitet warden (ohne Umweg Ciber ROW 100 
TEXT). 

AuBerdem kann das zu einer Referenz gehOrende Formular angesprochen 
warden. 

Der Zusammenhang wIrd folgendermaBen hergestellt: 

1 . Die Referenz - Variable getiOrt zu einer Qruppe: 

Das der Gruppe zugeordnete Formular wird benutzt und die Segmente, die 
Gruppe und Formular zugeordnet sind. 

2. Die Referenzvariable gehdrt niclit zu einer Qruppe: 

Der Referenzwert wurde Z.B. aus einem refsegment geiesen. Diesar 
Referenzwert kann atier vorher nur in einer Variablan erzeugt worden sein, 
die einer Gruppe zugeordnet war. Der Referenzwert ubemimmt dabei das 
der Gruppe zugeordnete Formular. In diesem Fall warden alia Segmente 
benutzt, die zum Formular und zur referierten Klasse gehOren. 

3. Falls die in Frage kommende Gruppe kein Standardformular hat, hat auch 
die Referenz keins. 

Formular zur Verfugung stellen 

TAG VAR t := tag (ref) 

(kann entfallen, wenn t im Programm nicht benutzt wird) 
Formular zeigen 
show (ref) 
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Alle zugeordneten Segmante des referierten Objekts ausgeben, lesen, bearbeiten 
lessen 



Qber das zugehdrige Formular: 



put (ref) 
get (ref) 
putget (ref) 

(Dieses Formular kann nicht durch SCROLL verschoben warden.) 



Qber ein bailabiges Formular t: 



put (ref, t) 
get (ref, t) 
putget (ref, t) 



text auf dam Segment s zugeordneten Feld von t ausgeben 



put (t, s, text) 
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Verwendung von Formularen fur die Ausgabe 

Fur die Datenausgabe warden Formulara mit Oaten gefullt und auf ain Pinboard 
geheftet, das nach Fertigstellung auf das aktuelle Ausgabegerdt (z.B. Blldachirm) 
Oder in eine Datei koplert werden kann. Formulare kflnnen auch uberelnander 
geheftet werden. 

Auf ainem Pinboard wird man meist das Blld einer Druckseite erzeugen. 
Feld feldnummar des Formuiars t mit text fOllen 

fill (t, text, feldnunmer) 
PIntMsard leeren 

clear board 
Vorbereitetes Pinboard aus Datei datei laden 

get board (datei) 
Formular t auf Pinboard heften 
llnke obere Ecke auf Position (spalte, zeile): 

pin (t, spalte, zeile) 

pin (t, spalte) (nacliste freie Zeile) 

pin (t) (Spalte 1, niichete freie Zeile) 

iinke obere Ecke auf Symbol auf Pinboard: 

pin (t, synbol) 

pin (t, symbol, erfolg) 

(erfolg wird auf TRUE gesetzt, wenn symbol gefunden wurde, sonst FALSE; 
vorher dekiarieren: BOOL VAR erfoig) 
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text ohne Benutzung aines Formulars auf Pinboard heften 

pin (text, spalte, zelle) 
Ndchste frele Zeile (Inhalt des Zeilenmerkers) 

next boardline (liefert ganze Zahl (INT)) 
NSchste Ausgabezeile bestimmen (Zeilenmerker setzen) 

set boardline (zahl) 

Pinboard ausgaben 

put board auf aktuellem Ausgabemedlum (z.B. Blldschirm) 

put board (datei) in Date! datel 

Ausgabe von Datenbankdaten 

Formular t mit den zugeordneten Segmenten des durch ref refariertan Objekts 
fullen 

t riLLBY ref 

Das dem Segment s zugeordnete Feld von t mit text fullen 

fill (t, s, text) 
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5. Datenbankvarwaltung 
Sicherung gegen Zerstdrung 

REMIS enthdit keine eigenen SichemngsvorKehrungen auBer 
save base. 

Die Datenbank kann also gegen Fehler in der Arbeltstask geslchert warden, 
indem sie durch save base zur Sicherungstask kopiert wird. Dies sollte immer 
dann geschehen, wenn sie einen aufzubewahrenden Inhalt (insbesondere auch 
Formulare) bekommen hat. 

Insbesondere 1st dies auch dann nutzlich, wenn das in der Arbeitstask insertlerte 
Anwendungssystem ersetzt warden soil. Hfiuflge Vorgehensweise: 

save base (/"BIBsave") 

end 

begin 

load base (/"BIBsave") 
insert declarations 
neues System insertleren 



Archivleren der Datenbank 

begin ("bibsave", "BIBsave") (* um "BIBsave" nicht zu gefahrden *) 
fetch all 

archive (archivname) 
clear (archive) 
save all (archive) 
end 

archlvierte Datenbank laden: fetch all (archive) 
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Gleichzeitige Mehrfachbenutzung 

Gleichzeitiges Andern der Datenbank aus verschiedenen Tasks ist mit der 
Single - User - Version (oline Parallei-Zugrtff) nicht mdgllch. Unterschiedliche 
Datenbankkopien kdnnen nicht konsistent zusammengefQhrt warden. 
Allerdings kann nebeneinander aus verschiedenen Datenbankkopien Ausgabe 
erzeugt werden. 



Sicherung gegen unbefugte Benutzung 

Gegen unbefugte Benutzung kann nur gesichert werden, indem die Arbeitstask 
gegen unbefugte Benutzung geaichert wird und In der Arbeitstask dem Benutzer 
die Mttgllchkelt zu programmleren entzogen wIrd. Dies kann zum Belaplel durch 
EInsatz des Menue - Programms errsicht werden. 
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6. Menue - Behandiung 

Die Menue - Behandiung besteht aus zwei Teilen, einem Laufzeitpaket, das im 
fertlgen Anwendungssystem insertiert sein muB, und einem Programmgenerator, 
der nur zur Umwandlung der Spezifil<atlon benfitlgt wird. 

Der Generator erzeugt aus einer Speziflkationsdatei mit der extemen Darstellung 
eines Menue -Baums ainen Datenraum mit der intemen Darstellung des 
Menue -Baums, sowie ein ELAN-Programm, das diesen Menue -Baum inter- 
pretiert, d.h. antsprechend den TaatendrUcken des Bedieners zu verschiedenen 
Menues und Unterprogrammen verzwaigt und eine Fehlertiehandlung durdi- 
fQhrt, 

Fur die Darstellung der Menues bei der Ausfuhnjng warden zwei Formulare 
('morchelrahmen' und 'morchelmenue*) verwendet, die mit design verdndert 
werden kflnnen. Auf 'morchelrahmen' werden die ausgewdlilten Menuepunkte 
angezeigt und in dem Feld mit dem symtwliscfien Namen 4711 Fetiler- 
meldungen. Auf 'morchelmenue' werden In den Fskjern 2 bis vohetztes Feld die 
Menuepunkte angezeigt und im letzten Feld mit dem symboliachen Namen 4711 
Meldungen aus dem Menuebaum. 

Die exteme Darstellung enthdlt zu jedem Menuepunkt fblgende Angaben: 

- Die Hierarchlestufe 

- Die Beschreibung der Funktion, die durch Anwahl eines Menue - Punktes 
angestoBen wird 

- optional eine im Falle der Anwahl auszufuhrende Ban-Prozedur (bei Knoten 
auf niedrigster Hierarchlestufe, d.h. wenn kein Untermenue folgt, ist sie 
notwendig) 

- optional eine im Falle der Anwahl auazugebende Meldung bei Knoten, denen 
ein Untermenue folgt 
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Beispiel: 



n: 


Titel aufnehmen" 


titel aufnehmen 


H: 


Titel andern" 


titel aendern 


w: 


weitere Exemplare aufnehmen" 


weitere exemplare 


a: 


Ausleihe" 


ausleihe 


r: 


RUckgabe" 


rueckgabe 


1: 


Exemplar loschen" 


exemplar loeschen 


b: 


Benutzeranzeige" 


benutzeranzeige 


t: 


Titelanzeige" 


titelanzeige 


z: 


zeige Liste" 





Welche Liste? 

"w: Werkliste" werke zeigen 

"e: Exemplarliste" exemplare zeigen 

"b: Benutzerliste" benutzer zeigen 

"q: Ende" break 

"i: Initialisierung" bibinit 



Aus dieser Spezifikation wird ein Monitorprogramm generiert, das zundchst ein 
Menue anbietet aus dem elner der Punkte der Stufe 1 ausgewdhlt warden kann 
(durch Eingabe des ersten Zelchens Oder durch Cursor -Positionierung und 
RETURN). 

Bel 'q' auf Stufe 1 wird die Task unterbrochen, 

bei 'z' wird die Meldung 'Welche Uste?' ausgegeben und das zugehfirige 
Untermenue der Stufe 2 angetxsten. 

Bei Anwahi eines anderen Menuepunkts wird die angeget)ene (vorher insertierte 
Oder hinter //* beschriebene) Prozedur ausgefuhrt. 

Die externe Darstellung des Menuebaums wird durch eine Zeile mit //* 
beendet. Danach kann ELAN - Programm folgen. 

Ein angebotenes Menue kann vom Benutzer auch durch HOP verlassen 
werden (jedoch nur bis Stufe 1). Dieses Zeichen kann durch die Prozedur 
'return symbol' andera deflnlert werden. 
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Menus beschreiben 

editC'source.name") (' 'name' ist frei wdhlbar *) 
Darin gemdfi obigem Beispiel den Menuebaum beschreiben. 

Monitor - Programm generleren 

fetchC'MORCHEL 3td",tasl<("REMIS")) 
trans form ( "name" ) 
erzeugt: tabelle.name 

name (Interne Baumdarstellung) 

monitor.name (Baum - Interpreter) 
insert ("monitor . name") 

Dialog - Programm starten 

monitor name (* kann nicht mehr veriassen warden *) 

Menue In anderer Ta8l< Implementleren 

name zur Verfugung stellen 
monitor.name insertieren 
starten 

Menue - Baum ^dern 

source.name Sndern 
transform ("name") 

Falls taC)elle.name vorhanden ist, wird versucht name zu ^dem. 
Falls mdgllch, braucht monitor.name nioht neu Insertiert zu werdan, 
sonst tabelle.name Ifischen und ab transform wiederholen. 



Abfragespraohe sql 
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7. Abfragespraohe sql 

sql generlert aus einem Kommando, das in einer Datel steht, ein EL^N- 
Programm, das Datenobjekte auf dem Bildschirm zeigt. Dafiir muB sin Rahmen- 
programm in der Oatei "join mac" existleren (fetch ("Join mac"y"REMIS')). 

Hinter dem Schlusselwort SELECT werden die Merkmale aufgezdhlt, die ausge- 
geben werden sollen. 

Nach dem Sclilusselwort FROM folgt die Angabe der Gruppe<n), deren Objekte 
betrachtet werden sollen. 

Urn die Merkmale eindeutig einem Objekt zuzuordnen, kann ihnen ein Grup- 
penlsezeichner vorangesteiit werden (Gruppenname Oder ein im FROM-Teil 
verelnbarter Gruppenbezeichner). 

Autoran alier in 'wgr' enthaltenen Werke 

SELECT autor FROM wgr Oder 
SELECT wgr_autor FROM wgr 

Name alter Benutzer: 

SELECT name FROM bgr : pars Oder 
SELECT pers_name FROM bgr : pars 

AuBerdem kann, um das Ausgabebild zu beeinflussen, dem Merkmal noch eine 
L^genangabe zugefugt werden (Standardwertwert: 20). 

name (max. 30 Steilen) und klasse (max. 6 Stellen) ailer BIbiiottieksbenutzer: 

SELECT name L 30, klasse L 6 FROM bgr 
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Die Ergebnismenge kann durch Angabe von Auswahlbedingungen im 
WHERE -Tell der SELECT - Anwelsung eingaschrdnkt warden. 

Titsl und Autor aller Bucher dsa Autora 'May*, 
in deren Titel das Wort 'WInnetou' aufthtt 
und die spdtestens 1692 erschlenen sind: 

SELECT titel, autor FROM wgr : buch 
WHERE buch_autor » "May" 

AND "Winnetou" IN buch_titel 

AND buch_erschj <= 1892 

Anmerkung: Im WHERE -Tell der Anwelsung mUssen aile Merkmale durch den 
Gruppenbezeichner spezlflziert werden, da dieser Tell vom ELAN - Compiler 
abgearbeitet wird, der keine automatischen Ergdnzungen durchfuhrt. Hierdurch 
kann aber der voile Elan - Sprachumfang zur Formulierung von Bedingungen 
genutzt werden, eInschiieBllch (auch nachtrSgllch) selbst deflnierter Opera- 
toren. Fur das Belspiei muB der Operator IN Insertlert sein, z.Bsp.: 

BOOL OP IN (TEXT CONST muster, text): 

pos (text, muster) > 0 
END OP IN 

Die Angabe mehrerer Gruppen im FROM -Tell fuhrt zu einem JOIN, d.h. jedes 
Element der einen Gruppe wird mit jedem Element der anderen zu einem neuen 
Objekt gekoppelt. 

Bine Gruppe kann auch mit sich selbst gekoppelt werden. Man erhdit dann die 
Menge aller Kombination zweier Objekte dieser Gruppe. 

Alle Autoren, die auch Benutzer sind: 

SELECT name, klasse FROM wgr : werk, bgr : benutzer 
WHERE werk autor = benutzer name 



Weitere Funktionen 
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8. Weitere Funktionen 
Datumsbearbeitung 

Das Datumspaket stellt Prozeduren zur Verfugung, die einen TEXT, der der 
Syntax eines giiltigen Datuma zwischen 1.1.1900 und 31.12.2050 entspricht, 
eindeutig einen INTEGER zuweist. Dieser Bereich ist in der Regel fur Daten- 
bankanwendungen ausrelchend (Geburtsdatum, Einstellungsdatum, Termine 
etc.). 

Die Codlerung hat gegeniiber der Speicherung des Textes folgende Vorteile: 

- Der Speicherplatzbedart betrSgt nur ein Achtel 

- Die Vergleichsoperationen wirken wie gewunscht, wdhrend sie auf der 
TEXT-Darstellung gemaB alphabetischer Ordnung arbeiten und unsinnige 
Ergebnisse liefern. 

- Operationen wie Bestimmen der Tagesdifferenz zwischen zwei Daten, 
Bestimmung des Wochentages, Berechnung des Folgedatums, Sortieren 
nach Datum etc. sind wesentllch schneller. 



datum (datum("28.2.84") + 1) — > "29.02.84" 
datum (datum("01.3.83") - 1) — > "28.02.83" 

Die durch dieses Paket definierten Prozeduren sind im Anhang aufgefuhrt. 



Task - Kommunikation 

REMIS enthait eigene Prozeduren fur die Abwicklung der Inter -Task -Kommuni- 
kation, die zur Koordlnlerung von Programmen, die in verschiedenen Tasks 
laufen, genutzt werden kdnnen. 



Beispiel: 



datum ("28.01.84") 
datum (- 1434) 



~> - 1434 
--> "28.01.84" 
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Andere Task mfen 

call (name der gerufenen task) 

Das Terminal wird an die gerufene Task ubergeben. Die rufende Task wartet 
auf Ruckgabe. 

call (tasknatne, PROC (code, datenraum) auftragsbearbeitung) 
Zusdtzlich ist wflhrend der Wartezeit die Prozedur 'autragsbearbeitung' berelt, 
Auftrftge der gerufenen Task zu bearbelten, die durch einen code und einen 
(zu bearbeitenden) Datenraum beschrleben sind. Als Ergebnis wIrd sin 
Datenraum und in code eine Antwort zunjckgegeben. Die Prozedur hat kein 
Terminal. Fails erforderlich muB sie es durch die parameterlose Prozedur 
'continue' holen und durch 'return control' wieder abgeben. 

Terminal abgeben 

return control 

Falls die Task mit 'call' gerufan wurde, wird das Terminal an die rufende Task 
zuruckgegeben. Die Task selbst wartet, bis sie das Terminal wiederbekommt. 

Auftrdge an die rufende Task erteilen (z. Bsp. Fragen steiien) 
ask (auftragsart, datenraum, antwort) 

erteilt durch eine Zahl in auftragsart einen Auftrag an die rufende Task und 
erhdit eine Antwort. Diese Ist positiv, wenn sie von der Auftragstwarbeitung 
gegeben wurde, sonst negativ. Im Datenraum kdnnen Daten ubergeben und 
Qbemommen werden. 

Starten der Kommunikatlon 



Eine Task, die durch 'call' aufgerufen werden soil, muB mit 'return control' anstelle 
von 'break' verlassen werden. 



Mehrfachbenutzung 
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9. Mehrfachbenutzung 
9.1 Uberblick 

Wenn eine Datenbank von mehreren Tasks gleichzeitig benutzt werden soli, 
dann 1st die Multi - User - Version von REMIS zu verwenden. Sie arbeltet 
nach folgendem Konzept: 

Es wird eine Task als Oatenbankmanager elngerichtet, in der die Datenbank 
liegt. Jede Task erdffnet die Kommunikation mit dem DB- Manager durch 

OPEN db-manager-name anstelle von 'load base'. 

AnschlieBend kttnnen Lese- und Schreibtransaktionen auf der Datenbank 
ausgefuhrt werden. Dazu werden parameterlose Prozeduren zur Ausfiihrung 
an REMIS ubergeben, z. Bsp. 

read transaction (PROC werke zelgen). 

Anmerkung: 'load base' und 'save base' gibt es in der Multi - User - Version 
nicht mehr. 

Qlelchzeltig kAnnen mehrere Lesetransaktlonen und eine Schreibtransaktlon 
ausgefuhrt werden. Weitere Schreibtransaktionen miissen bis zum Ende der 
gerade laufenden warten. 

Ober die Transaktionen -Verwaltung hinaus enthdit die Multi - User - Version 
von REMIS ein eigenes Archiv- System, das insbesondere die Archivierung von 
DB-Datenrdumen, die nicht auf eine Roppy passen, ermOglicht sowie einige 
Prozeduren fiir die Inter -Task -Kommunikation. 
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9.2 REMIS starten 

Anmerkung: Bel der Qenerierung des Datenbaksystems wird eine Task 'REMIS* 
eingerichtet. Falls die schon exiatiert (z. Bsp. Single -User -Version) muB 
sie zunAchst umbenannt warden, z. Bap. 

continue ("REMIS") 

rename myself ("REMIS single") 

break 

Taak-StruMur 

PUBLIC 
DB-UR 

Datenbank - Manager 
REMIS 

Arbeltstask 1 
Arbeltstask 2 

und bel Bedarf: 
SYSUR 

OB-SYSUR 

DB- ARCHIVE 

shutup 

Die Tasks OB-UR, REMIS und DB- SYSUR, DB -ARCHIVE, shutup warden 
vom Generator selbstdndig eingerlchtet. 



Mehrfachbenutzung 
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REMIS installieren 



begin ("xxx") 



archive ("REMISm") 
fetch all(archive) 
edit ("REMIS. info") 
ESC q 



Archiv - Floppy einlegen 
archlv anwdhlen 



run 



Information lesen 
adit verlassen 
'REMIS.info' ausfChren 



richtet OB - UR und REMIS ein und insertiert REMIS - Pakate 

Archiv - System installieren 

begin ("xxx","SYSUR") 

fetch ("REMIS. sys", /"REMIS") 

insert 

Datenbanl( - Manager einrichten 
begin ("BIBM","DB-UR") 

fetch all leere Datenbasis holen 

hier kann auch eine andere durch 'save base' erzeugte Datenbasis 

verwendet werden 

multi user base Datenbasis einrichten und Manager 



starten 



Arbeitsteisk einrichten 



begin ("bib", "REMIS") 
OPEN "BIBM" 



Kommunikation mit BIBM erdffnen 



Nun kdnnen Transaktionen auf der Datenbank ausgefijhrt werden. 
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9.3 Bearbeiten der Datenbasis 

Alle Arbeiten mit der Datenbasis musaen aJs Transaktlon ausgefOhrt warden, 
z. Bsp. 

read transaction (PROC dblist) 
Oder, nachdem das Programm auf S. 9 mit 'edit' in eine Datei geschrieben 
wurde 

read transaction (PROC run). 

Das Bibiiothelcssystem Itann in einfacher Weise durch Anderung des Menue- 

Baums (S. 41) auf die Mehrbenutzer - Version umgestellt werden. 

Beisplel: 



1 


"n: 


Titel aufnehmen" 


tr titel aufnehmen 


1 


"a: 


Titel andern" 


tr titel aendern 


1 


"w: 


weitere Exemplare aufnehmen" 


tr weitere exemplare 


1 


"a: 


Ausleihe" 


tr ausleihe 


1 


"r: 


Rijcl<gabe" 


tr rueclcgabe 


1 


"1: 


Exemplar Ibschen" 


tr exemplar loeschen 


1 


"b: 


Benutzeranzeige" 


tr benutzeranzeige 


1 


"t: 


Titelanzeige" 


tr titelanzeige 


1 


"z; 


zeige Liste" 




7 


Welche Liste? 




2 


"w: 


Werl<liste" 


tr weri<e zeigen 


2 


"e: 


Exemplarliste" 


tr exemplare zeigen 


2 


"b: 


Benutzerliste" 


tr benutzer zeigen 


1 


"q: 


Ende" 


breal< 


1 


"i: 


Inltialisierung" 


tr bibinit 


// 


» 







tr titel aufnehmen: write transaction (PROC titel aufnehmen). 

tr titel aendern: write transaction (PROC titel aendern). 

tr weitere exemplare: write transaction (PROC weitere exemplare). 

tr ausleihe: write transaction (PROC ausleihe). 

tr rueckgabe: write transaction (PROC rueckgabe). 

tr exemplar loeschen: write transaction (PROC exemplar loeschen). 

tr benutzeranzeige: read transaction (PROC benutzeranzeige). 
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tr titelanzeige: read transaction (PROC tltelanzelge) . 

tr werke zeigen: read transaction (PROC werke zeigen). 

tr exemplare zeigen: read transaction (PROC exemplare zeigen). 

tr benutzer zeigen: read transaction (PROC benutzer zeigen). 

tr bibinit: write transaction (PROC bibinit). 



Anmerkung: Bei den Lasetransaktionen 'benutzeranzeige' und 'titelanzeige' wird 
am Ende ein Fehler auftreten ("Schreibzugriff in Lesetransaktion nicht eriaubf). 
Erkl&'ung: 'benutzeranzeige' enthdit die Anweisung 

read (benutzer, entllehen, exgr) . 
Dabei wird der Wert von 'entllehen' geleaen und auf den in der Datenbasis 
llegenden Platz von 'exgr' geschrleben. Die Lese- Anweisung enthdlt also auch 
eine Schreib- Operation. 

Der Fehler kann vermieden werden, indam 'benutzeranzeige' als Schreibtrans- 
aktion ausgafUhrt wird, Oder abgefangen werden, Indem die Lesetransaktion in 
geeigneter Weise mit 'disable stop', 'clear error' und 'enable stop' umgeben wird. 
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9.4 Programmleren von Transaktlonen 

Der DB - Manager muB gestartet sein durcli 
multi user base. 

In einer Arbeitstask wird die Kommunikation mit dem DB - Manager erSffnet durch 

OPEN db-fflanager-name 
und geschlossen durch 
kill base. 

Prozeduren, die auf der Datenbasis ausgefiihrt werden soilen, sind durch 

read transactian (PROC prozedur) bzw. 

write transaction (PROC prozedur) 
auszufuhren. Wenn die Prozeduren Parameter enthalten, mussen sia in 
parameterlose Prozeduren verpackt werden. 

Lesetransaktionen durfen keine Schreibzugriffe enthalten. Dies wird bei 
Tranaaktionsende uberpruft. Wurden Schreibzugriffe ausgefuhrt, dann wird die 
Transaktion beendet mit 

errorstop ("Schreibzugriff in Lesetransaktion nicht erlaubt"). 

Schreibtransaktionen dQrIen nicht innerhalb von Lesetransaktionen ausgefiihrt 
werden. 

AuBerhalb von Transaktionen 1st der Zustand der Datenbasis in der Arbeitstask 
nicht definiert (und ebenso das Ergebnis von DB - Operationen). 

Zwischen Transaktionen kann die Datenbasis durch Schreibtransaktionen anderer 
Tasks gedndert werden. Insbesondere kann der Inhalt von Gruppen verdndert sein 
und Referenzen im Programm kdnnen ungultig sein. Variable fOr Werte aus der 
Datenbasis (insbesondere REF - Variable) mussen daher in jeder Transaktion neu 
besetzt werden. 
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Fur den, der's genauer wissen will: 

Um den Aufwand bei Transaktionsanfang und -ende zu vemngern wurde das 
Systemverhalten optlmlert. 

Transaktlonen aus einer Task warden von REMIS zusammengefafit bis zum 
fehlerhaften Abbruch einer Transaktion Oder der Behandlung einer Schreib- 
transaktion aus einer anderen Task. Innerhalb einer Transaktlonenfolge wird der 
Zustand der Datenbasis zwischen den Transaktlonen nicht verdndert. Die 
Programmvariablen mussen daher nur In Jeder Transaktlonenfolge neu besetzt 
warden. 

Ob eine neue Transaktlonenfolge aufgesetzt wird bzw. wurde, kann festgestellt 
werden aus dem Bestehen eines Fehlsrzustands ('Is error') nach Transaktions- 
ends bzw, aus der Anderung der DB-Versionsnummer. DIese wIrd jeweils bei 
Ende einer Schreibtransaktion gedndert. Sie wird gellefert durch die Prozedur 
trverslon. 
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9.5 Datenbasis archivieren 

Durch die Prozedur 

archive operation (welche, dbmanager-name) 

kann die Archiv-Tasit mit der Oruchfuhrung einer Archiv - Funktion beauftragt 
werden. Foigende Operationen kfinnen ausgefOhrt warden: 

weiche 

1 Roppies formatieren 

2 Anzeige dea Inhaits einer Floppy. 

3 Datenbasis vom Arcbiv laden. 

4 Datenbasis archivieren. 

Datenbasis archivieren 

Der Benutzar wird aufgefordert (formatiertel) Floppies einzulegen, bis die Daten- 
basis voilst&ndig archivlert 1st Oder der Vorgang abgebrochen wIrd. 
Eine unvollstdndlge Archlvierung 1st wertloa. 
GroBe Datenrdume werden ggfs. auf mehrere Roppies verteilt. 

Datenbasis vom Archiv laden 

Der Benutzer wird aufgefordert Roppies einzulegen bis eine volistdndige Oaten- 
basis eingelesen ist. Die zu einer Kopie gehdrenden Roppies kAnnen in beliebiger 
Reihenfolge eingelegt werden. 

Urn die Gefahr sines Spelcheruberlaufs zu vermeiden, wird der Benutzer evtl. zu 
Beginn gefragt, ob die aktuelie Datenbasis vor dem Einlesen der Kopie gelOscht 
werden soil. 



Anhang: Beispiel 



10. Anhang 

10.1 Beispiel Schulbibiiothek 

Am folgenden Beispiel soil die Verwendung von REMIS gezeigt werden. 
Das Programm stellt fur die Verwaltung ainer Schulbibliothelc folgende Dialog- 
funktionen zur Verfiigung: 

1 Eingabe von Buchtltein 

2 Anderung von Tlteln 

3 Eingabe von Zusatzexemplaren 

4 Ausleihe 

5 Ruckgabe 

6 Anzeige alien Exemplare eines Titels 

7 Anzeige aller ausgeliehenen Biicher eines Benutzers 

8 Anzeige aller Werke, Exemplare, Benutzer 

in alphabetlscher Relhenfolge ab einer bestimmten Stelle 

Die Datenbank enthdlt Daten folgender Struktur: 



WERK 



BENUTZER 



n 



T 



exemplare 



enttlehen 



werk- 
ref 



ben - 
ref 




— ^ zeigt auf ein Objekt, 
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WERK hat tolgende Segmente (Felder, Attribute): 
autor Text Autor 
titel Text TItel 
veiiag Text Verlag 
ejahr Zahl (INT) Erschelnungsjahr 
exemplare Gruppe zugehOrige Exemplare 

BENUTZER hat fblgende Segmente: 
name Text Nachname 
vomame Text Vorname 
klasse TEXT Klasse bzw. Benutzargruppe 

entllehen Qruppe entllahene Exemplare 



EXEMPLAR hat tolgende Segmente: 
exbez Text Exemplarbezeichnung 
adat Zahl (INT) Ausleihdatum 
werkref REF Verwels auf Titel 

benref REF Verwels auf Aualeiher 



Anhang: Beispiel 
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Datendeflnition 

(wird in einer Date! erstellt und mit 'run' ausgefOhrt) 

new class ("WERK'); 
new class ('EXEMPLAR'); 
new class ("BENUTZER"); 

GROUP VAR 

wgr : = new group ("WERK', 'wgr"), (' alle Werke ') 

bgr new group ('BENUTZER'.'bgr'), (' a«e Benutzer ') 
egr new group ('EXEMPLAR' 'egr'); (* alle Exemplare ') 
(' Beispielgruppen ') 
exgr : « new group ('EXEMPLAR', 'exemplare"); (' Exemplare eine Werks ') 
entgr . « new group ('EXEMPLAR', 'entllehen'); (' Aualelhem einea Benutzers ') 



(' WERK-Segmente ') 



new segment ('autor'. 


•WERK', 


")! 


new segment ('titer. 


'werk; 


"): 


new segment ('verlag'. 


"WERK", 


"): 


new segment ('ejahr', 


'WERK', 


0); 


new segment ("exemplare". 


"WERK', 


exgr); 



(• EXEMPLAR -Segmente ') 
new segment ('exbez', 'EXEMPLAR', "); 
new segment ('adaf, 'EXEMPLAR', nildatum); 
new segment ('werkref, "EXEMPLAR; "WERK", nilref); 
new segment ("benrel", 'EXEMPLAR', 'BENUTZER', nilref); 

(' BENUTZER -Segmente ') 
new segment ('name', 'BENUTZER', "); 
new segment ("vorname", "BENUTZER", ""); 
new segment ('klasse', 'BENUTZER', "); 
new segment ('entliehen', 'BENUTZER', entgr); 

all dass segments (wgr); 
all class segments (egr); 
all class segments (bgr); 



new methode (SEG 'adaf, 2); 



(' Datums - Konversion ') 
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dblist zeigt folgende DB - Struktur; 

Stand: 04.07.84 19:47 TASK : bib 
Es gibt die folgenden Objektklassen : 

CONVERSION 
WERK 
EXEMPLAR 
BENUTZER 



Strukturen der Oatenbankobjekte : 



CONVERSION - Objekte bestehen aus den folgenden Segmenten ; 
INT tablenr 
INT intcode 
TEXT textcode 

WERK - Objekte bestehen aus den folgenden Segmenten : 
TEXT autor 
TEXT titel 
TEXT vsriag 
INT ejahr 
GROUP exemplars 

EXEMPLAR - Objekte bestehen aus den folgenden Segmenten : 
TEXT exbez 
INT adat 
REF werkref 
REF benref 

BENUTZER - Objekte bestehen aus den folgenden Segmenten : 
TEXT name 
TEXT vorname 
TEXT klasse 
GROUP entliehen 



Anhang: Beiepiel 



Folgende Gruppen sind permanent in der Oatenbank : 



conversiontable 
tablenr 
intcode 
textcode 



enthaelt 1 CONVERSION -Objekte. Substruktur 



wgr 



autor 
titel 
verlag 
ejahr 

exemplare 



egr 



exbez 
adat 
werkref 
benref 



bgr 



name 
vorname 
klasse 
entliehen 



enthaelt 0 WERK - Objekte. Substruktur 



enthaelt 0 EXEMPUVR - Objekte. Substruktur 



enthaelt 0 BENUTZER - Objekte. Substruktur : 



exemplare 



enthaelt 0 EXEMPLAR -Objekte. Substruktur : 



entliehen 



enthaelt 0 EXEMPLAR - Objekte. Substruktur 
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Folgende Formulare wurden deflniert: 

morchelrahmen (gedndert, fur Statusanzelgen und Meldungan) 



feld 2 feld 3 

feld 4 und feld 5 (4711) 



werk (Werkanzsiga, StandardfotTnular fur wgr) 



Autor: autor. 
Titel: titei. 



10 



12 
13 
14 



Verlag: verlag 

Erscheinungs jahr: 4... 
4: ejahr 

exemplar (Exemplar - Anzeige, Standardformular fOr egr) 

Exemplatbazeichnung: exbez 

ausleihe (Ausleiher - Anzeige, Standardformular fOr bgr) 



Name : name . . . . 
Vorname: varname. 
Klasse : klasse . . 



Anhang: Beispiel 



An wend u ngssystem 
Nach 

insert (°pbib°) (' siehe folgende Seiten ') 

fetch ("MORCHEL std', /'REMIS') 

transform ('bib') (' enthm Menua aus Kap. 6 ') 

insert ('monitor.bib') 
wird mit 

monitor bib 
das Anwendungssystem gestartet. 

PACKET bib DEFINES 
titel aufnehmen, 
titel aendern, 
weltere exemplare, 
ausleihe , 
rueckgabe, 
exemplar loeschen, 
benutzeranzelge, 
titelanzelge, 
werke zeigen, 
exemplare zeigen, 
benutzer zeigen, 
bibinit: 



62 



REMIS Programmier - Handbuch 



TEXT VAR s:="", salt; 

INT VAR adatum, i, erste zeile; 

BOOL VAR erfolg:=FALSE; 

GROUP VAR exgr, egr, wgr, bgr; 

REF VAR Mork, exemplar, ex, benutzer, bref, wref; 

TAG VAR tagst, tagw, tage, taga; 

PROC bibinit: 

exgr :zarbeitsgruppe ("exgroup", "EXEMPLAR"); 

egr:sgroup ("egr"); sort (egr, 1); 

wgrisgroup ("wgr"); sort (wgr, 2); 

bgr:sgroup ("bgr"); sort (bgr, 2); 

Merk:sfirst (wgr); 

exemplar := first (egr); 

benutzer: = first (bgr); 

tagst INITBY "morchelrahmen"; 

tagw INITBY "werk"; 

tage INITBY "exemplar"; 

taga INITBY "ausleihe"; 

erste zeile :s4 
END PROC bibinit; 



Anhang: Belspiel 



PROC titel aufnehmen: 
werk:=first (^gr); 
exemplar:: first (egr); 
REP werk aufnehmen 
UNTIL NOT erfolg PER; 
sort (wgr, 2), 

werk aufnehmen: 

meldung ("Daten oder ESC"); 
shOM (tagw); 

insert and reset (werk); 

get (merk); 

IF aufnahme ok 

THEN exemplare aufnehmen 

ELSE erfolg :=FALSE; deiete (werk) 

FI. 

aufnahme ok: (werk_tltel) > "". 
exemplare aufnehmen: 

cJear (exgr); 

exemplar aufnehmen; 

IF erfolg 

THEN REP exemplar aufnehmen 

UNTIL NOT erfolg PER; 

M^rite (werk, exemplare , exgr); 

erfolg:=TRUE 
ELSE delete (werk); 

meldung ("ohne Exemplarbezeichnung keine Aufnahme"); 

pause (100) 

FI 

END PROC titel aufnehmen; 
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PROC titel aendern: 
nerk:=first (wgr); 
show (tagw); 
REP meldung (""); 
titel suchen; 

IF erfolg CAND ja ("dieaen Titel andern") 

THEN putget (^erk) VI 
UNTIL nein ("noch ein Titel") PER; 
sort Cwgr, 2) 
END PROC titel aendern; 

PROC weitere exemplare: 
\Herk: = fiist (wgr); 
exemplar :=first (egr); 
show (tagw); 
titel suchen; 
IF erfolg 

THEN read (werk, exemplare, exgr); 
REP exemplar aufnehmen; 
UNTIL NOT erfolg PER; 
write (werk, exemplare, exgr) 

FI 

END PROC weitere exemplare; 



Anhang: Beispiel 



PROC ausleihe: 

werk:=first (wgr); 
exemplar :s first (egr); 
benutzer:=first (bgr); 
show (tags); 
adatum:=datuni (date); 
benutzer suchen; 

IF NOT erfolg COR nein ("an diesen Benutzer ausleihen") 
THEN IF ja ("Benutzer aufnehmen") 

THEN benutzer aufnehmen 

ELSE erfolg:=FALSE 

FI 

FI; 

IF erfolg THEN ausleihen FI. 
ausleihen: 

Shaw (tagw); show (tage); 

read (benutzer, entliehen, exgr); 

REP exemplar suchen; 

IF erfolg CAND ja ("Dieses Such ausleihen") 
THEN ruecknahme; buchen FI 

UNTIL NOT erfolg PER; 

write (benutzer, entliehen, exgr). 
buchen: 

hold (exgr, exemplar) ; 

write (exemplar , benref, benutzer) ; 

write (exemplar, adat, adatum) . 
benutzer aufnehmen: 

insert and reset (benutzer); 

write (benutzer, name, s); 

putget (benutzer) ; 

IF aufnahme ok 

THEN sort (bgr, 2); 
erfolg:=TRUE 

ELSE erfolg:=FALSE;deJete (benutzer) 

n. 

aufnahme ok: ( benutzer _name) > "" 
END PROC ausleihe; 
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PROC rueckgabe: 

exemplar: = first (egr); 
shoM (tagw); show (tage); 
REP exemplar suchen; 

IF erfolg CAND ja ("Dieses Buch zurucknehmen") 
THEN ruecknahme FI 
UNTIL nein ("noch eine RUckgabe") PER 
END PROC rueckgabe; 

PROC exemplar loeschen: 
exemplar :=first (egr); 
show (tagw); show (tage); 
exemplar suchen; 
IF erfolg 
THEN IF ausgeliehen 

THEN meldung ("nicht mdglich, ausgeliehen"); pause (100) 

ELIF Ja ("Dieses Exemplar loschen") 

THEN loeschen 

FI 

FI. 

ausgeliehen: another (exemplar Joenref) . 

loeschen: 

read (exemplar, werkref, wref); 

delete (exemplar) ; 

werk ohne exemplar loeschen. 

werk ohne exemplar loeschen: 

read (»ref, exemplare, exgr); 

IF groupcount (exgr) - 0 THEN delete (wref) FI 
END PROC exemplar loeschen; 



Anhang: Beispiel 



PROC benutzeranzelge : 

frage antwort ("Benutzername Oder q"); 
IF s <> "q" 

THEN benutzer:: first (bgr); 

First (benutzer, name = s); 
WHILE another (benutzer) 
REP benutzer anzeigen; 

next (benutzer) 
UNTIL nein ("nachster Benutzer") PER 

FI. 

benutzer anzeigen: 
putze ab zeile (erste zeile); 
put {benutzer_nanie) ; 
put {benutzer_vornaaie) ; 
putline (.benutzer_klesse) ; 
read (benutzer, entliehen, exgr); 
ex:=first (exgr); 
WHILE another (ex) 
REP read (ex, Merkref, turef); 

put {ex_exbez) ; 

out ( hrref_autor) J out (": "); 

out (.Mref_titel); out ("; ")( 

out {datum (ex_adat)) •,line; 

next (ex) 

PER 

END PROC benutzeranzelge; 
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PROC titelanzeige: 

frage antwort ("Autor oder q"); 

IF 3 <> "q" 

THEN werk:= first (ngr); 

first (werk, autor = s); 
WHILE another (werk) 
REP titel anzeigen; 

next (werk); 
UNTIL nein ("nachster Titel") PER 

FI. 

titel anzeigen: 
putze ab zeile (erste zeile); 
out (Merk_autor); out (": "); 
out {iierk_titel) ; line; 
read (werk, exemplare, exgr); 
ex:=first (exgr); i:=0; 
WHILE another (ex) 
REP naechste zeile;. 

put (.ex_exbez) ; 

read (ex, benref, bref); 

IF another (bref) 

THEN put {bref_name); 
put (bref_klasse) ; 
out (datum (ex_adat)) ; 

FI; line; 

next (ex) 

PER. 

naechste zeile: 
IF i > 15 

THEN IF no ("welter") 

THEN LEAVE titelanzeige 
ELSE i:=l; 

putze ab zeile (erste zeile -t- 1) 

FI 

ELSE i INCR 1 
FI 

END PROC titelanzeige; 



Anhang: Beiepiel 



PROC werke zeigen: 
werktsfirst (y^gr); 

frage antwort ("Anhalten mit bel. Taste; Bitte Autor"); 
first (uerk, autar=s); 
WHILE another (werk) 
REP zeigen; next (werk) PER; 
put ("*♦* ENDE ♦*♦"); pause (1000). 
zeigen: 
put ( Merk_autor) ; 
putline iMerk_titel); 
IF incharety > "" 
THEN IF no ("weiter") 

THEN LEAVE werke zeigen 

ELSE eine zeile hoch FI 

FI 

END PROC werke zeigen; 

PROC exemplare zeigen: 
exemplar :=first (egr); 

frage antwort ("Anhalten mit bel. Taste; Bitte Exemplarbez 
first (exemplar , exbez=s); 
WHILE another (exemplar) 
REP zeigen; next (exemplar) PER; 
put ("♦♦♦ ENDE ***"); pause (1000). 
zeigen: 
put {exemplat_exbez) ', 
putline {exemplar_werkref_titel) ; 
IF incharety > "" 
THEN IF no ("weiter") 

THEN LEAVE exemplare zeigen 

ELSE eine zeile hoch FI 

FI 

END PROC exemplare zeigen; 
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PROC benutzer zeigen: 
benutzer: -first (bgr); 

frage antwort ("Anhalten mit bel. Taste; Bitte Benutzername") ; 
first (benutzer, namess); 
WHILE another (benutzer) 
REP zeigen; next (benutzer) PER; 
put ("»♦♦ ENDE »♦♦"); pause (1000). 
zeigen: 

put (benutzer_na(ne) ; 
put (.benutzer_vorname) ; 
putline (.benutzer_klasse) ; 
IF incharety > 
THEN IF no ("waiter") 

THEN LEAVE benutzer zeigen 

ELSE eine zeila hoch FI 

FI 

END PROC benutzer zeigen; 

PROC benutzer suchen: 
erfolg:=FALSE; 

meldung ("Benutzername Oder ESC"); 

e . ->tff * 
D . - f 

putget (taga, s, naaiensfeld) ; 

IF s > "" 

THEN meldung (""); 

first (benutzer , name = s); 

WHILE NOT erfolg AND another (benutzer) 

REP put (benutzer); 

IF nein ("nachster Benutzer") 
THEN erfGlg:=TRUE 
ELSE next (benutzer) 
FI 

PER 

FI. 

natnensfeld: field with name (taga, SEG name) 
END PROC benutzer suchen; 



Anhang: Beispiel 



PROC exemplar suchen: 
erfolg:=FALSE; 

meldung ("Exemplarbezeichnung ader ESC"); 

s:=""; putget (tage, s, 1); 

IF s > "" 

THEN meldung (""); 

first (exemplar, exbez = s); 

IF found 

THEN put (exemplar_Merkref) ; 
erfolg:=TRUE 

ELSE meldung ("Exemplar nicht gefunden"); pause (100) 
FI 

FI 

END PROC exemplar suchen; 

PROC titel suchen: 
erfolg:=FALSE; 

meldung ("Bitte Autor oder ESC"); 

s:=""; putget (tagw, s, 1); 

IF s > "" 

THEN meldung (""); 

first (werk, autor r s); 

WHILE NOT erfolg AND another (werk) 

REP put (\Herk); 

IF nein ("nachster Titel") 
THEN erfolg :=TRUE 
ELSE next (\nerk) 
FI 

PER; 

IF NOT erfolg 

THEN meldung ("Titel nicht gefunden"); pause (100) 
FI 

FI 

END PROC titel suchen; 
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PROC exemplar aufnehmen: 
meldung ("Daten oder ESC"); 
show (tage); 
erfolg:=FALSE; 
salt:=""; s:=salt; 
REP putget (tage, s, 1); 
IF s = salt 

THEN LEAVE exemplar aufnehmen FI; 
first (exemplar, exbez = s); 
IF found 

THEN meldung ("Exemplar vorhanden, bitte andern oder ESC")j 

salt:=s 
ELSE insert (exemplar) ; 

erfolg:=TRUE 

FI 

UNTIL erfolg PER; 

hold (exgr, exemplar) ; 

exemplarwerte elntragen. 
exemplarwerte elntragen: 

write (exemplar, exbez, s); 

reset (exemplar, adat); 

reset (exemplar, benref); 

write (exemplar, werkref, w^rk) 
END PROC exemplar aufnehmen; 



Anhang: Beiepiel 
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PRQC ruecknahme: 
read (exemplar, benref, bref); 
IF another (bref) 
THEN bei benutzer abbuchen; 

reset (exemplar, adat); 

reset (exemplar, benref) 

FI. 

bei benutzer abbuchen: 

GROUP VAR g:=neM groupC'EXEHPLAR") ; 

read (bref, entliehen, g); 

ex:=first (g); 

first (ex, exemplar) ; 

IF another (ex) 

THEN unhold (ex); 

write (bref, entliehen, exgr) 

FI; forget (g) 
END PROC ruecknahme; 

GROUP PROC arbeitsgruppe (TEXT CONST groupname, classname): 
IF group exists (groupname) 
THEN group (groupname) 
ELSE new group (classname, groupname) 
FI 

END PROC arbeitsgruppe; 

PROC insert and reset (REF VAR r): 
BOOL VAR vorhanden; 
SEGMENT VAR seg; 
insert (r); 

begin segment list (r); 
next segment (seg, vorhanden) ; 
WHILE vorhanden 
REP reset (r, seg); 

next segment (seg, vorhanden) 

PER 

END PROC insert and reset; 
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PROC putze ab zeile (INT CONST z): 

cursor (1, z); out (""4"") 
END PROC putze ab zeile; 

PROC meidunq (TEXT CONST t): 

put (tagst, t, 4) 
END PROC meldung; 

BOOL PROC ja (TEXT CONST t): 

out (""i''"io""5""); yes (t) 
END PROC ja; 

BOOL PROC nein (TEXT CONST t): 

out ('"'i""io""5""); no (t) 
END PROC nein; 

PROC frage antwort (TEXT CONST fragetext): 
cursor (1, 2); put (fragetext); get (s); 
cursor (1, erste zeile) 

END PROC frage antwort; 

bibinit. 

eine zeile hoch: out (""3"") 
END PACKET bib 



Anhang: Funktionen -Gruppen 
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10.2 REMIS - Funktionen nach Gruppen 
Bearbeitung der Datenbank 

base exists - - > BOOL 
kill base 

load base (TASK CONST manager task) 
load base 

save base (TASK CONST manager task) 
save base 



Bearbeitung von Klassen 

class exists (TEXT CONST name) — > BOOL 

clear (TEXT CONST classname) 

delete class (TEXT CONST name) 

delete segment (TEXT CONST segmentname, classname) 

new class (TEXT CONST name) 

new segment (TEXT CONST segmentname, classname, INT CONST wert) 
new segment (TEXT CONST segmentname, classname, REAL CONST wert) 
new segment (TEXT CONST segmentname, classname, wert) 
new segment (TEXT CONST segmentname, classname, targetclassname, 

REF CONST wert) 
new segment (TEXT CONST segname, classname, GROUP VAR g) 
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Bearbeitung von Gruppen 

TYPE GROUP 

: - (GROUP VAR a, GROUP CONST b) 

add group segment (GROUP VAR g, SEGMENT CONST segment) 

all class segments (GROUP VAR g) 

class of (GROUP CONST g) --> TEXT 

clear (GROUP VAR g) 

copy of (GROUP CONST g) --> GROUP 

exists (GROUP CONST g) --> BOOL 

forget (GROUP VAR g) 

group (TEXT CONST name) - - > GROUP 

group exists (TEXT CONST name) - - > BOOL 

groupcount (GROUP CONST g) - - > INT 

keep group (GROUP CONST g, TEXT CONST name) 

new group (TEXT CONST classname) - - > GROUP 

now group (TEXT CONST classname, groupname) — > GROUP 

no group segment (GROUP CONST g) 

reorganize grouptable 

reset sorted (GROUP CONST g) 

sort (GROUP CONST g. INT CONST n) 

sorted (GROUP CONST g) - - > INT 



Bearbeitung von Objekten 

delete (REF VAR r) 

hold (GROUP VAR g, REF CONST r) 

hold (REF VAR wohin, REF CONST r) 

insert (REF VAR r) 

unhold (REF VAR r) 



Anhang: Funktionen - Qruppen 



Bearbeitung von Referenzen 

TYPE REF 

: - (REF VAR a, REF CONST b) 

. (REF CONST a, REF CONST b) - - > BOOL 

another (REF CONST r) - - > BOOL 

first (REF VAR r) 

first (REF VAR a, REF CONST b) 

first (REF VAR r, segment - Itonstante) 

first (GROUP CONST g) --> REF 

found - - > BOOL 

group (REF CONST r) --> GROUP 

is ref of (REF CONST r, GROUP CONST g) - - > BOOL 

is ref of (REF CONST r, TEXT CONST cJaaaname) - - > BOOL 

last (REF VAR r) 

last (GROUP CONST g) --> REF 
next (REF VAR r) 

next (REF VAR r, segment « konstante) 
nilref - - > REF 
prior (REF VAR r) 



Bearbeitung von Segmenten 

TYPE GROUPSEGt^ENT 
TYPE INTSEGMENT 
TYPE REALSEGMENT 
TYPE REFSEGMENT 
TYPE SEGMENT 
TYPE TEXTSEGMENT 

(REF CONST r, INTSEGMENT CONST s) - 
(REF CONST r, REALSEGMENT CONST a) 
(REF CONST r, REFSEGMENT CONST s) - 
(REF CONST r, SEGMENT CONST s) - - > 
(REF CONST r, TEXTSEGMENT CONST s) 



-> INT 
--> REAL 
- > REF 
TEXT 
--> TEXT 
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(INTSEGMENT VAR a, SEGMENT CONST b) 
: - (REALSEGMENT VAR a, SEGMENT CONST b) 
: - fTEXTSEGMENT VAR a. SEGMENT CONST b) 

(REFSEGMENT VAR a, SEGMENT CONST b) 
: - (GROUPSEGMENT VAR a, SEGMENT CONST b) 
: - (SEGMENT VAR a, SEGMENT CONST b) 
- (SEGMENT CONST a, b) - - > BOOL 
SEG (TEXT CONST name) - - > SEGMENT 
SEG (INTSEGMENT CONST s) --> SEGMENT 
SEG (REALSEGMENT CONST 3) --> SEGMENT 
SEG (TEXTSEGMENT CONST 9) --> SEGMENT 
SEG (REFSEGMENT CONST s) - - > SEGMENT 
SEG (GROUPSEGMENT CONST s) - - > SEGMENT 

clear (SEGMENT CONST s) 
generate declarations 
insert declarations 

is segment of (SEGMENT CONST s, GROUP CONST g) - - > BOOL 

is segment of (SEGMENT CONST s, REF CONST r) - - > BOOL 

is segment of (SEGMENT CONST s, TEXT CONST classname) - - > BOOL 

last conversion done — > BOOL 

read (REF CONST r. SEGMENT CONST s, TEXT VAR w) 

read (REF CONST r, INTSEGMENT CONST s, INT VAR wert) 

read (REF CONST r, REALSEGMENT CONST s, REAL VAR wert) 

read (REF CONST r, TEXTSEGMENT CONST s, TEXT VAR wert) 

read (REF CONST r, REFSEGMENT CONST s, REF VAR wert) 

read (REF CONST r, GROUPSEGMENT CONST s, GROUP VAR wert) 

reset (REF CONST r, SEGMENT CONST s) 

segment (TEXT CONST name) - - > SEGMENT 

segment (TEXT CONST segmentname, classname) — > SEGMENT 

segment exists (TEXT CONST name) - - > BOOL 

segment name (SEGMENT CONST s) - - > TEXT 

valid value written — > BOOL 

write (REF CONST r, SEGMENT CONST s, TEXT CONST w) 
write (REF CONST r, INTSEGMENT CONST s, INT CONST wert) 
write (REF CONST r, REALSEGMENT CONST s, REAL CONST wert) 
write (REF CONST r, TEXTSEGMENT CONST s, TEXT CONST wert) 
write (REF CONST r, REFSEGMENT CONST s, REF CONST wert) 
write (REF CONST r, GROUPSEGMENT CONST s, GROUP CONST wert) 



Anhang: Funktionen - Gruppen 
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Datenbank - Verwaltung 

aktual mode — > INT 
begin classlist 
begin groupllst 

begin segmentlist (TEXT CONST class) 

begin segmentiist (GROUP CONST g) 

begin segmentlist (REF CONST r) 

convert by (SEGMENT CONST conversion methode) 

db list (TEXT CONST dateiname) 

db list 

init conversion handling 

new conversion table entry (SEGMENT CONST s, TEXT CONST wert, 

INT CONST code) 

new methode (SEGMENT CONST s, INT CONST mode) 

next class list entry (TEXT VAR name) 

next group list entry (TEXT VAR groupname, classname) 

next segment (SEGMENT VAR s, BOOL VAR gefunden) 

reorganize (SEGMENT CONST segment) 

segment type (SEGMENT CONST s) - - > INT 

segment type (SEGMENT CONST s, TEXTSEGMENT VAR t, 
INTSEGMENT VAR i, REALSEQMENT VAR r, 
REFSEGMENT VAR rr, GROUPSEGMENT VAR g) - - > INT 

type text (INT CONST segmenttyp) - - > TEXT 

version — > INT 



Sonstige DB-Prozeduren 

pack (TEXT CONST wert, INT VAR code, BOOL VAR okay) 
pack (TEXT CONST wert. INT VAR code) 
unpack (TEXT VAR wert, INT CONST code, BOOL VAR okay) 
unpack (TEXT VAR wert, INT CONST code) 
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Verwendung von Formularen 

TYPE TAG 

: - (TAG VAR a, TAG CONST b) 
INITBY (TAG VAR t, TEXT CONST name) 
SCROLL (TAG VAR t, INT CONST n) 

auskunfts nr (TAG CONST t, INT CONST feldnr) - - > INT 
auskunfts nr — > INT 

execute connmand code (TAG CONST t, INT VAR feldnr) 

field exists (TAG CONST t, INT CONST feldnr) - - > BOOL 

field with name (TAG CONST t, INT CONST name) - - > INT 

field with name (TAG CONST t, SEGMENT CONST 3) - - > INT 

fields (TAG CONST t) - - > INT 

first field (TAG CONST t) - - > INT 

form line (TAG CONST t, INT CONST n) - - > TEXT 

get (TAG CONST t. TEXT VAR wert. INT CONST feldnr) 

get (TAG CONST t, ROW 100 TEXT VAR werte, INT VAR feldnr) 

get (TAG CONST t, INT CONST feldnr) - - > TEXT 

leaving code — > INT 

length (TAG CONST t, INT CONST feldnr) - - > INT 

next fleW (TAG CONST t, INT CONST feldnr) - - > INT 

prior field (TAG CONST t, INT CONST feldnr) - - > INT 

protect (TAG VAR t. INT CONST feldnr, BOOL CONST schreibschutz) 

protected (TAG CONST t, INT CONST feldnr) - - > BOOL 

put (TAG CONST t, TEXT CONST wert. INT CONST feldnr) 

put (TAG CONST I, ROW 100 TEXT VAR werte) 

putget (TAG CONST t, TEXT VAR wert, INT CONST feldnr) 

putget (TAG CONST t, ROW 100 TEXT VAR werte, INT VAR feldnr) 

reorganize screen 

set field infos (TAG VAR t, INT CONST feldnr. 

BOOL CONST cloaad, protected, secret) 
set last edit values 
show (TAG CONST t) 

symbolic name (TAG CONST t, INT CONST feldnr) - - > INT 
tag (TEXT CONST name) - - > TAG 
tag (REF CONST r) - - > TAG 



Anhang: Funktionen-Qruppen 



81 



tag exists (TEXT CONST name) - - > BOOL 
X size CTAG CONST t) - - > INT 
y size CTAQ CONST t) - - > INT 



Verwendung von Formularen mit Datenbankdaten 

get (REF VAR r, TAG CONST t) 

get (REF VAR r, TAG CONST t, INT VAR feidnr) 

get (REF VAR r) 

link tag to group (GROUP VAR g, TEXT CONST tagname) 
put (REF CONST r. TAG CONST t) 
put (REF CONST r) 

put (TAG CONST t, INT CONST symb name, TEXT CONST wert) 

put (TAG CONST t, SEGMENT CONST s, TEXT CONST wert) 

putget (REF VAR r) 

putget (REF VAR r. TAG CONST t) 

putget (REF VAR r, TAG CONST t, INT VAR feidnr) 

show (REF CONST r) 



Verwendung von Formularen fur Ausgabe 

CLEARBY (TAG VAR zlel, TAG CONST quelle) 
clear board 

fill (TAG VAR t, TEXT CONST wert, INT CONST feidnr) 

get board (FILE VAR datei) 

next boardline — > INT 

pin (TAG CONST t, INT CONST spalte.zeile) 

pin (TAG CONST t, INT CONST spalte) 

pin (TAG CONST t) 

pin (TAG CONST t, TEXT CONST symbol) 

pin (TAG CONST t, TEXT CONST symbol, BOOL VAR erfolg) 

pin (TEXT CONST text, INT CONST spalte.zeile) 

put board 

put board (FILE VAR datei) 
set boardline (INT CONST zahl) 
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Ausgabe von Datenbankdaten 

FILLBY CTAQ VAR t, REF CONST r) 
QENBY (TAG VAR t, REF VAR r) 

fill (TAG VAR t, SEGMENT CONST s, TEXT CONST wert) 
fill (TAG VAR t, INT CONST feldname, TEXT CONST wert) 



Formular - Verwaltung 

TO (TAG CONST t. FILE VAR datel) 
TO (FILE VAR datel, TAG VAR t) 

begin taglist 

clear field (TAG VAR t, INT CONST feldnr) 

copy tag (TEXT CONST alt, neu) 

design (TAG VAR t) 

design fields (TAG VAR t) 

design form (TAG VAR t) 

forget tag (TEXT CONST name) 

list tags 

next tag list entry (TEXT VAR name) 
nil (TAG VAR t) 

rename tag (TEXT CONST alt, neu) 
restore tag (TAG CONST t, TEXT CONST name) 
store tag (TAG CONST t, TEXT CONST name) 
trans (TEXT CONST pseudoblank inversan Inversaus) 
transform (TAG CONST t, FILE VAR datei) 
transform (FILE VAR datei, TAG VAR t) 



Anhang: Funktionen - Gruppen 



Menue - Generator 

clear menue 

menuecursor (TEXT CONST t) 

minimenue 

next screen 

put fehler (TEXT CONST msg) 

put old commands 

return symtiol (TEXT CONST z) 

return symtjol — > TEXT 

return to father 

screen version — > INT 

transform (TEXT CONST name) 
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Multi - User DB - Manager 

multi user base 



Multi - User Arbeitstask 

OPEN (TEXT CONST dbmanager name) 

read transaction (PROC prozedur) 
write transaction (PROC prozedur) 



sql 

sql (TEXT CONST dateiname) 



Task - Kommunikation 

ask (INT CONST order, DATASPACE VAR ds, INT VAR retumcode) 
call (TEXT CONST taskname) 
call (TEXT CONST taskname, 

PROC (INT VAR code, DATASPACE VAR ds) prozedur) 
continue 
return control 



Anhang: Funktionen - Gruppen 
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Arbeiten mit Datum 

datum (TEXT CONST d) - - > INT 
datum (INT CONST t,m,j) - - > INT 
datum (INT CONST d) - - > TEXT 
datumjh (INT CONST d) - - > TEXT 
jahr (INT CONST d) - - > INT 
jahrestag (INT CONST d) - - > INT 
monat (INT CONST d) --> INT 
nildatum - - > INT 
tag (INT CONST d) - - > INT 
tmj (INT CONST d, INT VAR t.m.j) 
wochentag (INT CONST d) --> INT 
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10.3 REMIS - Funktionen alphabetisch 

GROUP 

TYPE GROUP 

ZwBCk: interner GROUP - Bezeichner 

GROUPSEGMENT 

TYPE GROUPSEGMENT 

Zweck: intemer GROUPSEGMENT -Bezeichner 

INTSEGMENT 

TYPE INTSEGMENT 

Zweck: Intemer INTSEGMENT - Bezeichner 

REALSEGMENT 

TYPE REALSEGMENT 

Zweck: intemer REALSEGMENT -Bezeichner 

REF 

TYPE REF 

Zweck: Referenz; enthdit Internen GROUP - Bezeichner, Position in der 
Gruppe, Referenz auf Objekt, internen Klassen -Bezeichner, Refe- 
renz auf Standardformular 

REFSEGMENT 

TYPE REFSEGMENT 

Zweck: Intemer REFSEGMENT - Bezeichner 

SEGMENT 

TYPE SEGMENT 

Zweck: intemer SEGMENT -Bezeichner 

TAG 

TYPE TAG 

Zweck: Datentyp fur ein Formular 

TEXTSEGMENT 

TYPE TEXTSEGMENT 

Zweck: interner TEXTSEGMENT - Bezeichner 



Anhang: Funktionen alphabetisch 
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(Unterstrich) 

INT OP (REF CONST r, (NTSEGMENT CONST s) 

REAL OP (REF CONST r, REALSEGMENT CONST s) 

REF OP (REF CONST r, REFSEGMENT CONST s) 

TEXT OP (REF CONST r, TEXTSEGMENT CONST s) 

Zweck: liefert den Wert des Segments s des durch r referierten Objekts; 

Warnung: s muB zur referierten Klasse gehdren, sonst falsches 

Ergebnis 

Fehler: Wrong segment type: <typ> 

TEXT OP (REF CONST r, SEGMENT CONST s) 

Zweck: liefert den Wert des Segments s des durch r referierten Objekts, 
konvertiert nacli der s zugeordneten Methods 

Fehler: keine Textumwandlung fur diesen Typ (REF- Oder GROUP- 
SEGMENT) 



OP : = (INTSEGMENT VAR a, SEGMENT CONST b) 

OP : - (REALSEGMENT VAR a, SEGMENT CONST b) 

OP : - (TEXTSEGMENT VAR a, SEGMENT CONST b) 

OP : - (REFSEGMENT VAR a, SEGMENT CONST b) 

OP : - (GROUPSEGMENT VAR a, SEGMENT CONST b) 

Zweck: Zuwelsung mit Typkontrolle; falls m6gllch bezeichnen anschliea- 

send a und b dasaelb« Segment 
Fehler: segmenttyp ist nicht INT (oder nicht vorhanden) 

segmenttyp ist nicht REAL (oder nicht vorhanden) 

segmenttyp ist nicht TEXT (oder nicht vorhanden) 

segmenttyp ist nicht REF (oder nicht vorhanden) 

segmenttyp ist nicht GROUP (oder nicht vorhanden oder 

keine gultige Beispielgruppe) 

OP ; = (SEGMENT VAR a, SEGMENT CONST b) 

Zweck: Zuweisung; a und b bezeichnen anschlieBend dasselbe Segment 
(Oder nichts) 

OP : = (GROUP VAR a, GROUP CONST b) 

Zweck: Nach der Zuweisung bezeichnen a und b dieselt)e Gruppe (oder 
nichts) 
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OP : - (REF VAR a, REF CONST b) 

Zweck: nach der Zuweisung referieren a und b dasselbe Objekt in derselben 
Gmppe 

OP : = (TAG VAR a, TAG CONST b) 
Zweck: b wird auf a ubertragen 



BOOL OP » (SEGMENT CONST a, b) 

Zweck: liefert TRUE, wenn a und b dasselbe Segment bezeichnen 
BOOL OP - (REF CONST a. REF CONST b) 

Zweck: liefert TRUE, wenn a und b dasselbe Objekt referieren; a und b 
brauchen nicht zur selben Gruppe zu gehfiren, 

CLEARBY 

OP CLEARBY (TAG VAR ziel, TAG CONST quelle) 

Zweck: uberschreibt alle (ymax (ziel)) Zeilen in zlel mit den ersten (ymax (ziel)) 
Zeilen von quelle; 

sinnvoll fur: schnelles Leeren eines mit Daten gefullten Formulars aus 
einer aufbewahrten leeren Kopie 

FILLBY 

OP FILLBY fTAG VAR t, REF CONST r) 

Zweck: trdgt die Werte des durch r referierten Objekts In t ein 

GENBY 

OP GENBY (TAG VAR t, REF VAR r) 

Zweck: erzeugt in t das zu r gehdrende Formular und trdgt die Werte des 
durch r referierten Objekts ein 



INITBY 

OP INITBY (TAG VAR t, TEXT CONST name) 
Zweck: erzeugt in t das Formular name 
Fehler: TAG <name> unbekannt 
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OPEN 

OP OPEN (TEXT CONST dbmanager name) 

Zweck: erOffnet die Kommunlkatlon mit dem Datenbank - Manager; 

(schlieBen mIt 'kill base') 
Fefiler: Datenbank "< dbmanager name>'' noch often 

Keine DB- Manager -Task 

DB - Version zu alt 



SCROLL 

OP SCROLL (TAG VAR t, INT CONST n) 

Zweck: verschiebt t urn n Zellen auf dem Blidschirm (n > 0: nach unten, 
n < 0: nach oben); t kann mit den neuen Posltlonen auch geapei- 
chert werden 

Fehler: Feld ausserhalb Bildschirm durch SCROLL 



SEG 

SEGMENT OP SEG (TEXT CONST name) 

Zweck; liefert den internen Bezeichner des existierenden Segments name 
Fehler; segment not existing: < name > 



SEGMENT OP SEG (INTSEGMENT CONST s) 
SEGMENT OP SEG (REALSEGMENT CONST s) 
SEGMENT OP SEG (TEXTSEGMENT CONST s) 
SEGMENT OP SEG (REFSEGMENT CONST s) 
SEGMENT OP SEG (QROUPSEGMENT CONST 3) 
Zweck: liefert den internen Bezeicfiner von s 



TO 

OP TO (TAG CONST t, FILE VAR datei) 

Zweck: ubertragt das Bild von t in editierbarer Form (wie von 'design form' 
angeboten) in die Textdatei datei 



OP TO (FILE VAR datei, TAG VAR t) 

Zweck: erzeugt in t ein Formular aus dem in den ersten (maximal 24) Sdtzen 
von datei abgelegten Formularbild 
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add group segment 

PROC add group segment (GROUP VAR g, SEGMENT CONST segment) 
Zweck: erweitert die Gruppe g um segment, falls es noch nicht dazugehArt 
Fahler: Segment gehfirt nicht zur Class 

aktual mode 

INT PROC aktual mode 

Zweck: liefert die iiber 'convert by' eingestellte Konversionsmethode 

all class segments 

PROC all class segments (GROUP VAR g) 

Zweck: ordnet g alle noch nicht zu g gehdrenden Segmente der zugehfirigen 
Klasse zu in der Reihenfolge, in der sie zu der Klasse hinzugefugt 
wurden 

another 

BOOL PROC another (REF CONST r) 

Zweck: liefert TRUE, wenn r ein giiltiges Objekt referiert 

ask 

PROC ask (INT CONST order, DATASPACE VAR ds, 

It^ VAR roturncode) 
Zweck: fragt mit order und ds und TarminaliJbergabe bei der aufrufenden 

Task nach und erwartet eine Antwort in ds und returncode 

auskunfts nr 

INT PROC auskunfts nr (TAG CONST t. INT CONST feldnr) 

Zweck: liefert die zum Feld feldnr in t gehdrende Auskunftsnummer 

INT PROC auskunfts nr 

Zweck; liefert die aktuelle Auskunftsnummer (wird beim Verlassen einer 
Maske durch ESC gesetzt) 

base exists 

BOOL PROC base exists 

Zweck: liefert TRUE, wenn eine Bank In der Task existiert 
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begin classlist 

PROC begin classlist 

Zweck: initialisiert die Liste der Objektklassen 

begin grouplist 

PROC begin grouplist 

Zweck: Initialisiert die Liste der Gruppen 

begin segmentllst 

PROC begin segmentllst (TEXT CONST class) 
Zweck: initialisiert die Liste der Segmente von class 

PRCX: begin segmentlist (GROUP CONST g) 
Zweck: Initialisiert die Liste der Segmente von g 

PROC begin segmentlist (REF CONST r) 

Zweck: initialisiert die Liste der Segmente der zu r gehArenden Gruppe Oder 
Klasse 

begin taglist 

PROC begin taglist 

Zweck: initialisiert die Lister der Formular-Deflnitionen 

call 

PROC call (TEXT CONST taskname) 

Zweck: ubergibt die Kontrollp und das Terminal an Task taskname 
Fehler: Task "<taskname>" wird benutzt (anwortet nicht) 

PROC call (TEXT CONST taskname, 

PROC (INT VAR code, DATASPACE VAR ds) prozedur) 

Zweck: ubergibt Kontrolle und Terminal an Task taskname; bei ROckkehr wird 
prozedur mit code und ds ausgefuhrt, wotMi in code ein ordercode 
Obergeben wird und ein returncode zuruckzugeben ist. Falls prozedur 
das Terminal braucht, muB sie es durch 'continue' besorgen und am 
Ende durch 'return control' zuruckgeben 

Fehler: Task "< taskname >" wird benutzt (antwortet nicht) 
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class exists 

BOOL PROG class exists (TEXT CONST name) 

Zweck: llefert TRUE, wenn sine Klasse name vorhanden ist 

class of 

TEXT PROC class of (GROUP CONST g) 

Zweck: liefert den Namen der zu g gehflrenden Klasse 

Fehler: subscript underflow (wenn g keine gOltige Gruppe bezeichnet) 

clear 

PROC clear (TEXT CONST classname) 

Zweck: lOscht alle Objekte der Klasse classname 

PROC clear (SEGMENT CONST s) 

Zweck: lAscht den Inhalt von s in alien Objekten 

PROC clear (GROUP VAR g) 

Zweck: lOscht In g alle Referenzen (nicht die referierten Objekte) 
Fehler; undefined group (falls g keine gOltige Gruppe bezeichnet) 

clear board 

PROC clear board 

Zweck: erzeugt ein leeres Pinboard 
clear field 

PROC clear field (TAG VAR t. INT CONST feldnr) 
Zweck: lOscht Feld feldnr aus Formular t 

clear menus 

PROC clear menue 

Zweck: lOscht den durch das Menue - Formular belegten Bildschirmbereich 

continue 

PROC continue 

Zweck: holt das durch 'call' abgegebene Terminal zuruck 
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convert by 

PROC convert by (SEGMENT CONST s) 

Zweck: schaltet die zu s gehdrende Konversionsmethode ein; alle nachfol- 
genden Konvertierungen werden entsprechend durchgefuhrt 

copy of 

GROUP PROC copy of (GROUP CONST g) 

Zweck: erzeugt und liefert eine Kopie von g, falls mdgllch 

Fehler: grouptable overflow 

copy tag 

PROC copy tag (TEXT CONST alt, neu) 

Zweck: erzeugt von der Formulardefinltion alt eine Kopie mit dem Namen 

neu, falls mfiglich 
Fehler: TAG <alt> unbekannt 

tag already existing 

datum 

INT PROC datum (TEXT CONST datumstext) 

Zweck: liefert den Oatumscode fur datumstext (in der Form tt.mm.jj) 

INT PROC datum (INT CONST t, m, j) 
Zweck: liefert den Oatumscode 

TEXT PROC datum (INT CONST d) 

Zweck: liefert den Datumstext (in der Form tt.mm.jj) fur Oatumscode d 
datumjh 

TEXT PROC datumjh (INT CONST d) 

Zweck: liefert den Oatumstext mit Jahrhundert (in der Form tt.mm.jjjj) 

dblist 

PROC db list 

Zweck: generiert ein Inhaltsverzeichnis der vorhandenen Datenbank in die 
Textdatei 'DB-list', zeigt die LIste und Iflscht sie nach Wunsch 

PROC dblist (TEXT CONST dateiname) 

Zweck: generiert ein Inhaltsverzeichnis der vorhandenen Oatenbank in die 
Textdatei dateiname 
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delete 

PRCX; delete (REF VAR r) 

Zweck: lOscht das durch r referierte Objekt aus seiner Klasse und damit aus 
alien Gruppen; anschlieBend refehert r das Objekt, das (vor dem 
Ldschen) mit 'next (r)' erreicht worden wdre 

delete class 

PROC delete class (TEXT CONST name) 
Zweck: loescht die Klasse name 

delete segment 

PROC delete segment (TEXT CONST segmentname, dassname) 

Zweck: Ifischt das Segment segmentname bei der Klasse dassname (und 

alien Ihren Objekten) 
Fehler: class < dassname > not existing. 

Warnung: < segmentname > ist nicht In <claa8nama> 

design 

PROC design (TAG VAR t) 

Zweck: bietet t zum interaktlven design an; ruft design form und design fields, 
letzteres jedoch ohne symbollsche Feldnamen (bzw. Segmentzuord- 
nung) 

design fields 

PROC design fields (TAG VAR t) 

Zweck: eriaubt interaktives Erzeugen, Andern und Ldschen von Oatenfeld- 
Definitionen fur t mit Segmentzuordnung und Feldeigenschaften 
(geschutzt, Standardanzeige) 

design form 

PROC design form (TAG VAR t) 

Zweck: eriaubt die interaktive Gestaltung des Bildes von t; wenn t nicht 
existiert, wird ein leeres TAG erzeugt 

execute command code 

PROC execute command code (TAG CONST t, INT VAR feldnr) 
Zweck: interpretiert 'leaving code' (s.u.) und setzt feldnr auf einen entspre- 
chenden neuen Wert 
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exists 

BOOL PROG exists (GROUP CONST g) 

Zweck: liefert TRUE, wenn g eina Qruppe bezetclinet, sonst FALSE 
fields 

INT PROC fields (TAG CONST t) 

Zweck: liefert die hfichste Feldnummer, die in t irgendwann existierte 
Warnung: nicht zu jeder Mummer muB ein Feld existieren 

field exists 

BOOL PROC field exists (TAG CONST t, INT CONST feldnr) 
Zweck: liefert TRUE, wenn Feld feldnr in t existlert, sonst FALSE 

field with name 

INT PROC field with name (TAG CONST t. INT CONST name) 
Zweck: liefert die Nummer dea Feldes In t mit dem symbolischen Namen 
name Oder 0, falls es nicht existlert 

INT PROC field with name (TAG CONST t. SEGMENT CONST s) 
Zweck: liefert die Nummer des Feldes des in t zu s gehOrenden Feldes 

fill 

PROC fill (TAG VAR t, TEXT CONST wert, INT CONST feldnr) 
Zweck: fijilt Feld feldnr In t mit wert 

PROC fill (TAG VAR t, SEGMENT CONST s. TEXT CONST wert) 
Zweck: trdgt wert in das s zugeordnete Feld von t ein 

PROC fill (TAG VAR t, INT CONST feldname, TEXT CONST wert) 
Zweck: trdgt wert In das Feld feldname von t ein 

first 

PROC first (REF VAR r) 

Zweck: setzt r auf das erste der von der assoziierten Gruppe referierten 
Ot)jekte zuruck 
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PROC firm (REF VAR a, REF CONST b) 

Zweck: positioniert a auf den Gruppeneintrag, der das glelche Objekt referiert 
wie b, Oder auf Gruppenende; a und b brauchen nicht zur selben 
Gruppe zu gehOren 
bisheriger Name: next 

Fehler: REFs of different classes 

PROC first (REF VAR r, segment » konstante) 

Zweck: positioniert r auf das erste Objekt, dessen Segment segment 
(Bezolchner eines TEXTSEGMENTs Oder INTSEGMENTs) den Wert 
konstante hat. WIrd kain solchss Objekt gafunden, dann zeigt r bei 
sortierten Gruppen auf das ndchstgrdBere Objekt, bei nicht sortierten 
Gruppen hinter das letzte Objekt 

REF PROC first (GROUP CONST g) 

Zweck: liefert eine Referenz auf das erste der von g referierten Objekte 
first field 

INT PROC first field (TAG CONST t) 

Zweck: liefert die Nummer dea ersten Feldes von t 

forget 

PROC forget (GROUP VAR g) 

Zweck: Ifischt die Gruppe g (falls permanent nach Anfrage); g bezelchnet 
anschlieBend keine Gruppe 

forget tag 

PROC forget tag (TEXT CONST name) 

Zweck: Iflscht TAG name 

Fehler: TAG <name> unbekannt 

form line 

TEXT PROC form line (TAG CONST t, INT CONST n) 
Zweck: llefert Zeile n von t 

found 

BOOL PROC found 

Zweck: liefert TRUE, wenn das letzte first Oder next mit Suchkriterium erfolg- 
reich war, sonst FALSE 
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generate declarations 

PROC generate declarations 

Zweck: erzeugt fOr die vorhandene Datenbank einen Deklaratlonsteil und 
eine Prozedur, in die ein Programm einkopiert werden kann, um die 
Oatenbankdeklarationen ohne Insertierung in dem Programm zur 
Verfugung zu haben 

get 

PROC get (TAG CONST t, TEXT VAR wert, INT CONST feldnr) 
Zweck: llest Qber Feld feldnr von t einen Text in die Variable wert 

PROC got (TAG CONST t, ROW 100 TEXT VAR werte, INT VAR feldnr) 
Zweck: bietet werte auf t zum Editieren an, ohne sie vorher auszugeben (sle 
kdnnen vorher ausgegeben worden sein (z.B. durch put)); feldnr 
bezelchnet das Feld von t, in das die Schreibmarke am Anfang 
gesetzt werden soil, bzw. in dem sie sich am Ende befand (Verlassen 
nur mil ESC) 
Fehler: startfeld nicht im tag 

PROC get (REF VAR r, TAG CONST t) 

Zweck: llest die Werte fOr das durch r referlerte Objekt uber t ein 

PROC get (REF VAR r, TAG CONST t, INT VAR feldnr) 

Zweck: liest die Werte lur das durch r referlerte Objekt uber t ein; feldnr 
bezelchnet das Feld , in das die Schreibmarke am Anfang gesetzt 
werden soli, bzw. in dem sle sich am Ende befand 

Fehler: Einstiegsfeld gesperrt 

PROC get (REF VAR r) 

Zweck: liest Werte fur das durch r referlerte Objekt uber das zugehdrige 

Formular ein 
Fehler: Kein freles Feld zugeordnet 

TEXT PROC get (TAG CONST t, INT CONST feldnr) 

Zweck: liest uber das Feld feldnr von t einen Text ein und liefert ihn 

get board 

PROC get board (FILE VAR datei) 

Zweck: liest das Pinboard aus Oatel datei 
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group 

GROUP PROC group fTEXT CONST name) 
Zweck: liefert die permanente Gruppe name 
Fehler: group doea not exist 

GROUP PROC group (REF CONST r) 

Zweck: liefert die zu r gehdrende Gruppe; ist undefiniert, wenn r aus einem 
Segment gelesen wurde 

groupcount 

INT PROC groupcount (GROUP CONST g) 
Zweck: liefert die Anzahl der Objekte in g 

group exists 

BOOL PROC group exists (TEXT CONST name) 

Zweck: liefert TRUE, wenn die permanente Gruppe name vorhanden ist, 
sonst FALSE 

hold 

PROC hold (GROUP VAR g, REF CONST r) 

Zweck: hdngt r an g; r und g mussen Objekte derselben Klasse referieren 
(wird nicht gepruft); das Sortierkennzeichen wird auf 'nicht sortlert' 
gesetzt. Ungultlge Referenzen In g werden gelOscht. 

PROC hold (REF VAR wohin, REF CONST r) 

Zweck: fugt r vor wohin in die zu wohin gehdrende Gruppe ein; r und wohin 
mussen Objekte derselben Klasse referieren (wird nicht gepnjft); 
anschlieBend gilt wohin ^ r; das Sortierkennzeichen bleibt erhalten. 
Ungultige Referenzen werden gelfischt. 

init conversion handling 

PROC init conversion handling 

Zweck: erzeugt (falls nicht bereits vorhanden) die CLASS 'CONVERSION', die 
die Informationen enthdit, welche Segmente nach welchem Modus 
verschlusselt sind, und die Code-Tabellen fur im table -mode 
verschlusselte Segmente 
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insert 

PROC insert (REF VAR r) 

Zweck: erzeugt ein neues Objekt in der zu group (r) gehcirenden Klasse und 
fugt eine Referenz darauf in group (r) ein vor der Position der aktu- 
ellen Referenz r; anschlleBend referiert r das neue Objekt; das Sor- 
tierkennzeichen blelbt erhalten, d.h. der Programmierer ist verant- 
wortlich fur die Reihenfolge in der Qruppe. UngOltige Referenzen 
werden aus der Gruppe geldscht. 

Fehler: Zu viele Objekte in class <classname> 

insert declarations 

PROC insert declarations 

Zweck: erzeugt und insertiert fur die vorhandene Datenbank ein Paket, das 
fur jedes Segment eine Konstante deklariert, die als Namen den des 
Segments hat und als Wert den internen Segmentt}ezeichner anthdlt 

is ref of 

BOOL PROC is ref of (REF CONST r, GROUP CONST g) 
Zweck: liefert TRUE, wenn r mit g assoziiert ist 

BOOL PROC is ref of (REF CONST r, TEXT CONST classname) 
Zweck: liefert TRUE, wenn r ein Objekt der Klasse classname referiert 

is segment of 

BOOL PROC is segment of (SEGMENT CONST s, GROUP CONST g) 
Zweck: liefert TRUE, wenn s zu g gehflrt 

BOOL PROC is segment of (SEGMENT CONST s, REF CONST r) 
Zweck: liefert TRUE, wenn s zu r gehflrt 

BOOL PROC is segment of (SEGMENT CONST s, TEXT CONST ciname) 
Zweck: liefert TRUE, wenn s zu Klasse ciname gehftrt 



jahr 

INT PROC jahr (INT CONST d) 

Zweck: liefert das Jahr fur den Datumscode d 
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jahrestag 

INT PROC jahrestag (INT CONST d) 

Zweck: llefert den Jahrestag fur den Datumscode d (1.1. > 1 usw.) 
keep group 

PROC keep group (GROUP CONST g, TEXT CONST name) 

Zweck: ordnet der von g bezeichneten Qruppe den Namen name zu 

Fehler; duplicate groupname: < name > . 

subscript underflow (wenn g kelne Qruppe bezelchnet) 

kill base 

PROC kill base 

Zweck: Ifiacht die ganze Datenbank (z.B. vor Laden vom Manager) 
last 

PROC last (REF VAR r) 

Zweck: setzt r aut das letzte der von der assoziierten Gruppe referierten 
Objekte 

REF PROC last (GROUP CONST g) 

Zweck: liefert eine Referenz auf das letzte der von g referierten Objekte 

last conversion done 

BOOL PROC last conversion done 

Zweck: liefert TRUE, wenn die letzte Konvertierung mfiglich war, sonst 
FALSE 



leaving code 

INT PROC leaving code 

Zweck: liefert den Code des Steuerzeichens, mit dem das letzte get oder 
putget vom Benutzer beendet wurde 
bei Mehrfelderbearbeitung 27: ESC 
bei Einfeldbearbeitung 

0: auskunft (HOP ?) 13: feld vor (RETURN) 
3: OBEN 19: feld ruck (HOP RETURN) 

9: TAB 27: ESC 

10: UNTEN 
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length 

INT PROC length (TAG CONST t, INT CONST feldnr) 
ZwecK: llefert die Gesamtldnge des Feldes feldnr von t 

link tag to group 

PflOC link tag to group (GROUP VAR g, TEXT CONST tagname) 
Zweck: ordnet tagname der Gruppe g zu 
Fehler; TAG < tagname > unbekannt 

list tags 

PROC list tags 

Zweck: zeigt eine Liste der vorhandenen TAGs auf dem Bildschirm 

load base (* nur single -user -Version *) 
PROC load base (TASK CONST manager task) 
Zweck: ISdt die Datenbank von der manager task 
Fehler: load impossible, base already existing; 
DB- Version zu alt 

PROC load base 

Zweck: ISdt die Oatenbank von der Vatertask 
Fehler: load impossible, base already existing; 
DB - Version zu alt 

menuecursor 

PROC menuecursor (TEXT CONST t) 

Zweck: ersetzt die Darstellung des Menue- Cursors (Standard: =^>) 

minimenue 

PROC minimenue 

Zweck: zeigt das Minimenue (Kommandobuchstaben der ndchsten Menue - 
Anzeige) im Feld 4712 der Rahmenmaske 



monat 

INT PROC monat (INT CONST d) 

Zweck: liefert den Monat fur den Datumscode d 
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multi user base 

PRCX: multi user base 

Zweck: startet den Datenbankmanager; eine Datenbasis muB vorhanden sein 

new class 

PROC new class (TEXT CONST name) 
Zweck: richtet neue Klasse mit dem Namen name ein 
Fehler: CLASS einrichten unmOgllch (kein Platz mehr); 
CLASS existiert schon 

new conversion table entry 

PROC new conversion table entry (SEGMENT CONST s, 

TEXT CONST wert, INT CONST code) 
Zweck: trdgt in die zu s gehOrende Konversionstabelle die Kombination 
wert - code ein 

new group 

GROUP PROC new group (TEXT CONST classname) 

Zweck: erzeugt eine leere tempordre Gruppe (ohne Namen) zur Objektklasse 

classname 
Fehler: grouptable overflow. 

class < classname > not existing 

GROUP PROC new group (TEXT CONST classname, groupname) 

Zweck: erzeugt die leere permanente Gruppe groupname zur Objektklasse 

classname 
Fehler; group table overflow. 

class < classname > not existing. 

duplicate groupname: <groupname> 

new methode 

PROC new methode (SEGMENT CONST s, INT CONST mode) 

Zweck: erzeugt einen neuen Konversions - Methoden - Eintrag mit der 

Nummer s und dem Modus mode 

0: Zahl - Text; 

1: Code (INT) - Text; 

2: INT - Datum (in der Form tt.mm.jj) 

Fehler: Unknown mode: <mode> 
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new segment 

PROC new segment (TEXT CONST segmentname, classname, 
INT CONST wert) 

Zweck: fugt zur Klasse classname ein neuea INTSEGMENT mit dem Stan- 

dardwert wert hinzu 
Fehler: <segmentname> bereits vorhanden 

PROC new segment (TEXT CONST segmentname, classname, 
REAL CONST wert) 

Zweck: fugt zur Klasse classname ein neues REALSEGMENT mit dem Stan- 

dardwert wert hinzu 
Fehler: <segmentname> bereits vorhanden 

PROC new segment (TEXT CONST segmentname, classname, wert) 

Zweck: fugt zur Klasse classname ein neues TEXTSEGMENT mit dem Stan- 

dardwert wert hinzu 
Fehler: < segmentname > bereits vorhanden 

PROC new segment (TEXT CONST segmentname, classname, targetclass- 
name, REF CONST wert) 

Zweck: fugt zur Klasse classname ein neues REFSEGMENT segmentname 
hinzu, das REFs auf Objekte der Klasse targetclassname aufneh- 
men kann. Oer Standardwert wert muB auf die Zielklasse (target- 
class) Oder keine Klasse (nilref) zeigen. 

Fehler: < segmentname > bereits vorhanden; 
Falscher Beispielref 

PROC new segment (TEXT CONST segname, classname, GROUP VAR g) 
Zweck: fugt zur Klasse classname ein neues GROUPSEGMENT hinzu mit den 
Eigenschaften von g. Der Name von g und segname mussen uber- 
einstimmen. g darf keinem anderen Segment zugeordnet sein. g wird 
auf 'leer' gesetzt und sollte leer bleiben. Spdtere Anderungen der 
Eigenschaften von g (z.B. zugehArlge Segmente) gelten fOr alle Ein- 
trdge in das Segment. 
Fehler: < segname > bereits vorhanden. 
Falsche Beispielgruppe 
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next 

PROC next (REF VAR r) 

Zweck: setzt r auf das n^kchste Objekt seiner Gruppe Oder Gruppenende 
PROC next (REF VAR r, segment - konstante) 

Zweck: positioniert r welter auf das ndchste Objekt, dessen Segment segment 
(Bezeichner einas TEXTSEGMENTs Oder INTSEGMENTs) den Wert 
konstante hat. Wird kein solches Objekt gefunden, dann zeigt r bei 
sortierten Gruppen auf das ndchstgrOBere Objekt, bei nicht sortierten 
Gruppen hinter das letzte Objekt 

next boardline 

INT PROC next boardline 

Zweck: llefert die Zellennummer nach der letzten nicht leeren Zeile auf dem 
Board (Wert des Zailenmerkers) 

next class list entry 

PROC next Class list entry (TEXT VAR name) 

Zweck: liefert den ndchsten Eintrag aus der Uste der Objektklassen. 1st kein 
welterer Eintrag vorhanden, wird name auf niltext gesetzt. 

next field 

INT PROC next field (TAG CONST t, INT CONST feldnr) 

Zweck: liefert die Nummer des ndchsten Feldes nach Feld feldnr in t 

next group list entry 

PROC next group list entry (TEXT VAR groupname, classname) 
Zweck: llefert den ndchsten Eintrag aua der Uste der zu Klaase clasanome 
gehArenden Gruppen. 1st kein welterer Eintrag vorhanden, werden 
groupname und classname auf niltext gesetzt. 

next screen 

PROC next screen 

Zweck: erhftht die Bildschirm- Versions -Nummer um 1 (mod 32000) 
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next segment 

PROC next segment (SEGMENT VAR 3, BOOL VAR gefunden) 
Zweck: liefert den ndchsten Eintrag aus der aktuellen Segmentliste. Diese 
Liste wird durch 'begin segment list' initialisiert. Wenn ein Eintrag 
gefunden wurde, wird gefunden auf TRUE gesetzt, sonst FALSE. 

next tag list entry 

PROC next tag list entry (TEXT VAR name) 

Zweck: liefert den ndchsten Eintrag aus der aktuellen TAG -Liste; bei 
Listenende ist name leer 

nil 

PROC nil (TAG VAR t) 

Zweck: erzeugt in t ein leeres Formuiar 

nildatum 

INT PROC nildatum 

Zweck: liefert das leere Datum ■ 

nilref 

REF PROC nilref 

Zweck: liefert den leeren Zeiger 

no group segment 

PROC no group segment (GROUP CONST g) 
Zweck: entfernt alle Segmentzuordnungen von g 

pack 

PROC pack (TEXT CONST wert, INT VAR code, BOOL VAR okay) 

Zweck: konvertiert wert nach der eingestellten Konversionsmethode, liefert 

den Code in code und TRUE in okay genau dann, wenn die Kon- 

vertierung mdglich war 

PROC pack (TEXT CONST wert, INT VAR code) 

Zweck: konvertiert wert nach der eingestellten Konversionsmethode, liefert 
den Code in code 
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pin 

PROC pin (TAG CONST t, INT CONST spalte, zeile) 

Zweck: heftet t mit der linken oberen Ecke auf das Pinboard an die Stelle 
(spalte, zeile) 

PROC pin (TAG CONST t, INT CONST spalte) 
Zweck: wirkt wie pin (t, spalte, next boardline) 

PROC pin (TAG CONST t) 

Zweck: wirkt wie pin (t, 1 , next boardline) 

PROC pin (TAG CONST t, TEXT CONST symbol) 

Zweck: heftet t mit der linken oberen Ecke auf das erste Zeichen von symbol 
auf dem Pinboard 

PROC pin (TAG CONST t, TEXT CONST symbol, BOOL VAR erfolg) 

Zweck: heftet t mit der linken oberen Ecke auf das erste Zeichen von symbol 

auf dem Pinboard; wenn symbol gefunden wurde, ist erfolg TRUE, 

sonst FALSE 

PROC pin (TEXT CONST text, INT CONST spalte, zeile) 
Zweck: heftet text auf die Position (spalte, zeile) des Plntx^ards 

prior 

PROC prior (REF VAR r) 

Zweck: setzt r auf das vorhergehende Objekt seiner Gruppe Oder Qruppen- 
ende 

prior field 

INT PROC prior field (TAG CONST t, INT CONST feldnr) 
Zweck: liefert die Nummer des Feldes vor Feld feldnr in t 

protect 

PROC protect (TAG VAR t, INT CONST feldnr, BOOL CONST schreib- 
schutz) 

Zweck: bei schreibschutz - TRUE wird das Feld feldnr in t gegen Schreiben 
geschutzt, andernfalls wird es zum Schreiben geAffnet 
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protected 

BOOL PROC protected (TAG CONST t, l^4T CONST feldnr) 

Zweck: liefert TRUE, wenn Feld feldnr in t schreibgeschutzt ist, sonst FALSE 

put 

PROC put (TAG CONST t, TEXT CONST wert, INT CONST feldnr) 
Zweck: gibt wert auf dem Bildschirm in Feld feldnr von t aus; ggf. wird wert 
gekurzt 

PROC put (TAQ CONST t, ROW 100 TEXT VAR werte) 

Zweck: gibt werte auf dem Bildschirm in den Feldern von t aus; ggf. werden 
einzelne werte gekurzt 

PROC put (REF CONST r, TAG CONST t) 

Zweck: gibt die Werte des durch r referierten Objekts auf t aus 
PROC put (REF CONST r) 

Zweck: gibt die Werte des durch r referierten Objekts auf dem zugeordneten 
Formular aus 

PROC put (TAG CONST t, INT CONST symb name, TEXT CONST wert) 
Zweck: gibt den wert auf dem Feld symb name von t aus 

PROC put (TAG CONST t, SEGMENT CONST s, TEXT CONST wert) 
Zweck: gibt den wert auf dem s zugeordneten Feld von t aus 

putget 

PROC putget (TAG CONST t, TEXT VAR wert, INT CONST feldnr) 
Zweck: bietet wert auf dem Feld feldnr von t zum Editieren an 

PROC putget (TAG CONST t, ROW 100 TEXT VAR werte, 
INT VAR feldnr) 

Zweck: bietet werte auf t zum Editieren an; ggf. werden werte bei der Anzei- 
ge gekQrzt; feldnr bezeichnet das Feld von t, in das die Schreibmarke 
am Anfang gesetzt werden soli, bzw. in dem sie sich am Ende 
befand (Verlassen nur mit ESC) 

Fehler. startteld nicht im tag 



108 



REMIS Programmier - Handbuch 



PROC putget (REF VAR r) 

Zweck: bietet die Werts des durch r referierten Objekts auf dem zugehA- 
rigen tag zum Editieren an 

PROC putget (REF VAR r, TAG CONST t) 

Zweck: bietet die Werte des durch r referierten Objekts auf t zum Editieren 
an 

PROC putget (REF VAR r, TAG CONST t, INT VAR feldnr) 

Zweck: bietet die Werte des durch r referierten Objekts auf t zum Editieren 
an; ggf. werden Werte bei der Anzeige gekurzt; feldnr bezeichnet das 
Feld von t, In das die Schrelbmarke am Anfang gesetzt werden soli, 
bzw. in dem sie sich am Ende befand (Verlassen nur mit ESC) 

Fehler: Einstiegsfeld gesperrt 

put board 

PROC put board 

Zweck: kopiert board auf die aktuelle Ausgabeeinheit 
PROC put board (FILE VAR date!) 

Zweck: schreibt das Pinboard in die offene output - Date! datei 

put fehler 

PROC put fehler (TEXT CONST msg) 

Zweck: gibt msg auf das Fehlerfeld der Rahmenmaske aus 

put old commands 

PROC put old commands 

Zweck: rekonstruiert die Menue - Rahmenmaske auf dem Blldschirm 
read 

PROC read (REF CONST r, SEGMENT CONST s, TEXT VAR w) 

Zweck: liest den Wert des Segments s des durch r referierten Objekts, kon- 

vertiert ihn nach der s zugeordneten Methode und liefert das Ergeb- 

nis in w 

Fehler: keine Textumwandlung fiir diesen Typ (REF- Oder GROUP- 
SEGMENT) 
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PROC read (REF CONST r, INTSEGMENT CONST s, INT VAR w) 
PROC read (REF CONST r, REALSEQMENT CONST a, REAL VAR w) 
PROC read (REF CONST r, TEXTSEQMENT CONST s, TEXT VAR w) 
PROC read (REF CONST r, REFSEGMENT CONST s, REF VAR w) 
Zweck: liest den Wert des Segments s des durch r referierten Objekts in die 
Variable w; 

Warnung: s muB zur referierten Klasse gehdren, sonst falsches 
Ergebnis 

Fehler: Wrong segment type: <typ> 

PROC read (REF CONST r, GROUPSEGMENT CONST s, GROUP VAR w) 
Zweck: liest den Wert das Segments s des durch r referierten Objekts in die 

Variable w; die Gruppe wert hat die Eigenschaften der zu s gehd- 

renden Beispielgruppe; 

Warnung; s mu6 zur referierten Klasae gehfiren, aonst falsches 
Ergebnis 

Fehler: Wrong segment type: <typ> 

read transaction 

PROC read transaction (PROC prozedur) 

Zweck: fCihrt prozedur auf einer Oatenbank-Kopie als Lesetransaktion aus; 

Schreibzugriffe erzeugen bei Transaktionsende einen errorstop 
Fehler: Schreibzugriffe wdhrend Lese -Transaktion 

rename tag 

PROC rename tag (TEXT CONST alt, neu) 

Zweck: ersetzt den Namen von TAG alt durch neu 

Fehler: TAG <alt> unbekannt 

reorganize 

PROC reorganize (SEGMENT CONST segment) 
Zweck: reorganisiert den Spelcherplatz fur segment 



reorganize grouptable 

PROC reorganize grouptable 

Zweck: Idscht alle unbenutzten (nach forget) oder tempordren Gruppen 
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reorganize screen 

PROC reorganize screen 

Zweck: rekonstruiert den Bildschirm aus dem Bildwiederholspeicher 
reset 

PROC reset (REF CONST r, SEGMENT CONST s) 

Zweck: sclireibt in daa Segment s des durch r referiarten Objekts den Stan- 
dardwert 

reset sorted 

PROC reset sorted (GROUP CONST g) 

Zweck: kennzeichnet eine Gruppe als 'nicht sortlert' 

restore tag 

PROC restore tag (TAG CONST t, TEXT CONST name) 
Zweck: ersetzt TAG name durch t 
Fehler: TAG <name> untiekannt 

return control 

PROC return control 

Zweck: gibt Kontrolle und Terminal (an aufrufende Task) zuruck 

return symbol 

PROC return symbol (TEXT CONST z) 

Zweck: definiert z als das Zeichen, bei dessen Eingabe im Menuebaum zum 
Vater zuruckverzweigt werden soli 

TEXT PROC return symbol 

Zweck: liefert das aktuelle Ruckkehr- Zeichen 

return to father 

PROC return to father 

Zweck: geht im Menuebaum zum Vater -Menue zuruck; wird normalerwelse 
vom Monitorrahmenprogramm nach jeder Ausfuhrung eines Endkno- 
tens selbstdndig ausgefuhrt 
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save base (* nur sigle- user -Version ') 

PROC save base (TASK CONST manager task) 

Zweck: spelchert die Datenbank beim Manager manager task 

Fehler: Inkonsistente Sicherung wegen: <grund> 

PROC save base 

Zweck: speichert die Datenbank bei der Vater-Task 
Fehler: Inkonsistente Sicherung wegen: <grund> 

screen version 

INT PROC screen version 

Zweck: liefert die Bildschirm- Versions -Nummer 
segment 

SEGMENT PROC segment (TEXT CONST name) 

Zweck: liefert den internen Bezeichner des existierenden Segments name 
Fehler: segment not existing: <name> 

SEGMENT PROC segment (TEXT CONST segmentname, classname) 
Zweck: liefert das bereits existierende Segment segmentname der Klasse 
classname 

Fehler: < segmentname > ist kein Segment von Objekten der Klasse < class- 
name > 

segment exists 

BOOL PROC segment exists (TEXT CONST name) 

Zweck: liefert TRUE, wenn Segment name existiert, sonst FALSE 

segment name 

TEXT PROC segment name (SEGMENT CONST s) 
Zweck: liefert den Namen von s 
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segment type 

INT PROC segment 
Zweck: liefert den 
1: TEXT 
2: INT 



type (SEGMENT CONST s) 
Typ des Segments s 

4: REF 

5: GROUP 



3: REAL 0: sonst 

INT PROC segment type (SEGMENT CONST s, TEXTSEQMENT VAR t, 
INTSEGMENT VAR i, REALSEGMENT VAR r, 
REFSEGMENT VAR rr, GROUPSEGMENT VAR g) 

ZwecK: llefert den Typ des Segments s (s.o.) und den Segmentbezelchner in 
dem entsprechenden Parameter 

set boardllne 

PROC set boardllne (INT CONST zahl) 
Zweck: setzt den Zeilenmerker auf zahl 

set field infos 

PROC set field infos (TAG VAR t, INT CONST feidnr, 

BOOL CONST closed, protected, secret) 
Zweck: setzt die angegebenen Elgenschaften fur Feld feidnr von t; 
z.Zt. wird nur protected und secret unterstiitzt 

set last edit values 

PROC set last edit values 

Zweck: stellt fur die ndchste Bearbeitung eines Maskenfeldes (get, putget) die 
Situation (Cursor- Position) be'im Verlassen der Maske wieder her 



show 



PROC show (TAG CONST t) 
Zweck: zeigt t auf dem Bildschirm 



PROC show (REF CONST r) 

Zweck: zeigt zu r gehfirendes Formuiar auf dem Bildschirm 
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sort 

PROC sort (GROUP CONST g, INT CONST n) 

Zweck: sortiert die Gruppe g nach den ersten n Segmenten (nur INT, REAL, 
TEXT) 

Fehler; keine Ordnungsrelation fiir segmenttype; 
Sortfehler 

sorted 

INT PROC sorted (GROUP CONST g) 

Zweck: llefert 0, falls g 'unsortlert', sonst die Anzahl der Segmente, nach 
denen g sortiert ist 

sql 

PROC sql (TEXT CONST dateiname) 

Zweck: ubersetzt ein SQL - Programm aus der Textdatei dateiname, gene- 
riert daraus ein ELAN - Progamm und Kihrt es aus; sql benOtlgt dazu 
ein Rahmenprogramm In einer Textdatei mit dem Namen 'join mac' 

store tag 

PROC store tag (TAG CONST t, TEXT CONST name) 
Zweck: speichert t unter dem Namen name 
Fehler: tag already existing 

symbolic name 

INT PROC symbolic name (TAG CONST t, INT CONST feldnr) 
Zweck: liefert den symbolischen Namen des Feldes feldnr von t 

tag 

INT PROC tag (INT CONST d) 

Zweck: liefert den Tag fur den Oatumscode d 

TAG PROC tag (TEXT CONST name) 
Zweck: liefert das Formular name 
Fehler: TAG <name> unbekannt 

TAG PROC tag (REF CONST r) 

Zweck: liefert das zu r gehfirende Formular 
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tag exists 

BOOL PROG tag exists (TEXT CONST name) 

Zweck: TRUE, wenn die Formulardefinition name existiert 

tmj 

PROC tmj (INT CONST d, INT VAR t, m, j) 

Zweck: liefert Tag, Monat und Jahr In t, m, j fOr den Oatumscode d 
trans 

PROC trans (TEXT CONST pseudoblank Inversan inversaus) 

Zweck: ersetzt die entsprechenden Standardzeichen fur die Formulargestal- 

tung (design form) 
Fehler: falsche Eingabe (nicfit 3 Zeichen) 

transform 

PROC transform (TAG CONST t, FILE VAR datel) 

Zweck: schreibt Formular t In transformlerter Form In die offene output -Date! 
datei 

PROC transform (FILE VAR datei, TAG VAR t) 
Zweck: erzeugt t aus der offenen input -Datei datei 

PROC transform (TEXT CONST name) 

Zweck: erzeugt aus der Textdatei 'source. name' das Monitorprogramm in die 
Textdatel 'monitor.name' und den Menuebaum In den Datenraum 
'name'. Zur Generierungszeit muB die Textdatei 'MORCHEL std' mit 
dem Rahmen fur daa Monitorprogramm vorhanden seln. AuBerdem 
werden die belden Standardmasken 'morchelrahmen' und 'morchel- 
menue' verwendet. Zur AusfOhrung wird 'monitor.name' Insertiert und 
mit 'monitor name' gestartet. 

trversion 

INT PROC trversion 

Zweck: liefert die Versionsnummer der Oatenbasis; wird bei jeder Schreiti- 
transaktlon ge^dert 
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type text 

TEXT PROC type text (INT CONST segmenttyp) 
Zweck: liefert die Textbezeichnung eines Segmenttyps 
Fehler: unknown type nr 

unhold 

PROC unhold (REF VAR r) 

Zweck: Idsctit die Referenz r aus der zugeliOrigen Gruppe; anschlieBend 
referiert r das Objekt, das (vor dem LOschen) mit 'next (r)' errelcht 
worden wdre 

unpack 

PROC unpack (TEXT VAR wert, INT CONST code, BOOL VAR okay) 

Zweck: konvertlert code nach der eingestellten Konverslonsmethode, liefert 

den Text in wert und TRUE In okay genau dann, wenn die Konver- 

tierung mdglicli war 

PROC unpack (TEXT VAR wert, INT CONST code) 

Zweck: konvertlert code nach der eingestellten Konverslonsmethode, liefert 
den Text in wert 

valid value written 

BOOL PROC valid value written 

Zweck: liefert TRUE genau dann, wenn beim letzten 'write' mit Konvertlerung 
ein Im Sinne der angewendeten Konverslonsmethode gultiger Wert 
geschrieben wurde 

version 

INT PROC version 

Zweck: liefert die Versionsnummer des Oatenbanksystems 

wochentag 

INT PROC wochentag (INT CONST d) 

Zweck: liefert den Wochentag fur den Datumscode d (So - 0, Sa > 6) 
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write 

PROC write (REF CONST r, SEGMENT CONST s, TEXT CONST w) 

Zweck: konvertlert w nach der dem Segment s zugeordneten Methode und 

schreibt das Ergebnis in das Segment s des durch r referierten 

Objekts 

Fehler: write with Illegal type (REF- Oder QROUPSEGMENT) 

PROC write (REF CONST r, INTSEGMENT CONST s, INT CONST w) 
PROC write (REF CONST r, REALSEQMENT CONST s, REAL CONST w) 
PROC write (REF CONST r, TEXTSEGMENT CONST s, TEXT CONST w) 
PROC write (REF CONST r, REFSEGMENT CONST s, REF CONST w) 
PROC write (REF CONST r, QROUPSEGMENT CONST s, GROUP CONST w) 
ZwecK: schreibt w in das Segment s des durch r referierten Objekts; 

Warnung: s muB zur referierten Klasae gehOren, sonst falschea 

Ergebnia 

Fehler: Wrong segment type: <typ> 

ref of wrong object class (bei REFSEGMENT) 

write transaction 

PROC write transaction (PROC prozedur) 

Zweck: fuhrt prozedur auf einer DatenbanK - Kopie als Schreibtransaktion 
aus; die gednderten Oatenrdume warden nach fehlerloser AusfOh- 
rung zum Oatenbank - Manager ubertragen 

Fehler: Schreib-Transaktlon w^rend Lese-Transaktlon 

X size 

INT PROC X size (TAG CONST t) 

Zweck: liefert die Breite (Anzahl der Spalten) von t 

y size 

INT PROC y size (TAG CONST t) 

Zweck: liefert die Hdhe (Anzahl der Zeilen) von t 
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10.4 Syntax des SELECT - Kommandos (sql) 

ertorderlich: Rahmenprogramm in Datel "|oln mac" 

<Komfnando> .:- < SELECT- tail > < FROM- tail > / 

< SELECT -teil> <FROM-teil> < WHERE -teil> 

< SELECT -tei !>•.:» "SELECT" < segmentliste > 

<5egmentliste> <segmenticl> / <segmentid> < segmentliste > 

<segmentid> ;:" <merkmal> / <merkmal> <outputform> 

<merkmal> <merkmalsname> / 

<groupbezeichner> ' "<merkmal8name> 

<merkmalsname> :: =Wame eines Merkmals einer der im FROM-Teil 
angegebenen GROUPS. 

<outputform> 'L' <ausgabeldnge als ganze Zahl> 

<FROM-teil> "FROM" <groupliste> 

<groupliste> ::= <groupid> / <groupid> "," <group|jsts> 

<groupid> <groupname> / 

<groupname> ":" <groupbe2eichner> 

<groupname> ;;= Name einer in der DB vorhandenen GROUP 

< WHERE -t8il>::- "WHERE" < boolscher ausdruck > 

<boolscher ausdruck> beliebiger boolscher ELAN - Ausdruck, 

Merkmale mussen wie folgt angegeben werden: 
<groupbezeichner> " " <merkmalsname> 



